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The  Quick  And  Easy  Way 
To  Spectacular  Screens 

•  IBM  PC  Math 
Graphics 

•  Color  Pad 
For  The  64 

•  Amiga  Math  Draw 
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Las  Vegas  card  game 
for  64,  Apple  II,  PC, 
Atari,  and  Amiga 
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No  matter  what  kind  of  game  you're  in  the 
mood  for,  you'll  find  that  if  it's  in  a  box  marked 
FIREBIRD,  it's  really  hot! 

Firebird  offers  the  excitement  of  a  whole 
range  of  challenges  —  Adventures  and  Strategies 
for  long  rainy  weekends.  Arcade  games  for 
exhilarating  evenings.  Simulations  when  you 
need  to  get  away  from  it  all,  Productivity  software 
when  you're  feeling  —  well,  productive. 

Look  for  the  Firebird  —  it  stands  for  top- 
quality  software  in  virtually  ei>ety  category. 

Adventures 
Ablaze 

The  worid  has  been 
waiting  for  a  sequel  to 
the  highly-acclaimed 
PAWN,  with  its 
stunning  graphics  and 
re\'olutionar^'  text-handling 
system.  Here  at  last  is  GUILD  OF 
THIEVES,  an  extraordinary  Adventure  like  no 
other!  Look  for  the  Firebird  logo  on  other 
addictive  Adventures,  too  —  like  the  stunning 
GOLDEN  PATH,  or  the  magical  illusion  of 
KNIGHT  ORG  with  its  superb  graphics. 

Four-Alarm  Arcade  Action 

when  it  comes  to  fast-paced  Arcade  games, 
nothing  beats  Firebird's  STARGLIDER,  a 
breathtaking  combat  flight  simulation  with 
inaedibly  rapid  3D  veaor  effects. 


Or  try  ELfTE,  a  game  so 
different  it  defies 


categorization,  or  the  end- 
lessly puzzling  CHOLO. 


Sizzling  Strategies 

If  you're  in  the  mood  for  Strategy,  and  have 
exceptional  concentration  and  near-perfect 
hand/e)'e  coordination,  you'll  love  the  challenge 
ofSENTEY  with  its  more  than  30,000  Ml-color 
landscapes  and  four-way  saolling.  More 
Strategies  from  Firebird:  the  revolutionary 
UNIVERSAL  MILITARY  SIMLMTOR*  and 
TRACKER,  games  that  inu-oduce  totally  new 
concepts  in  tactical  warfare. 


powerful  graphiG  routines,  while  our  MUSIC 
SYSTEM  in  both  concise  and  ad\^ced  versions, 
brings  new  stimulation  to  music  lovers.  This  is 
Firebird  —  the  best  in  interactive  software  of 
every  desaiption.  We'll  prove  to  you  that  you 
don't  have  to  keep  switching  brands  to  satisfy 
your  obsession  for  challenge! 


CREDIT  CARD  HOTLINE 
(201)  444-5700  (T^CS] 

I  ModWCord  I 


Power  for 
Productivity 

Firebird  even  offers 
economical,  professional- 
quality  Productivity 
software!  ADVANCED  ART 
STUDIO  is  a  compre- 
hensive art  package  with 


"TTie  First  Full  Line  In  Software" 

Firebird  Licensees,  Inc. 

PC.  Box  49,  Ramsei',  NJ  07446 

(201)444-5700 

Firebird  sofn.'are  for  IBMcompaiible  systems,  Amiga,  CM,  Aiari 
52(OT,  Macintosh,  and  Apple  II,  is  available  from  (24.95  to  ♦59.9j. 

Einirad,  and  llw  Rrebirf  lego  an;  regsimij  inrfflmito  rf  Rrebffd  LIctnSB^ 

BM  is  a  rcgiand  iiadmzi  ot  Inemiicny  BiiUnesi  MiMn  Copoixnn. 
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PRESENTING  TECHNOIOGY  THAT  LETS  YOU 
PROGRAM  YOUR  OWN  DESTINY. 


Electronics  and  computer  equipment  can  be 
state-of-the-art  today.  And  ready  for  the  garbage 
can  tomorrow. 

Demand  for  technology  is  changing  that  fast. 

And  the  people  who  can  stay  on  top  of  it  can 
write  their  own  ticket  in  this  world. 

That's  the  beauty  of  the  Air  Force. 

We  can  put  you  to  work  with  technology  that 
you  may  not  read  about  in  magazines  for  years. 

We  can  teach  you  how  to  make  sense  of  the 


most  intimidating  circuitry  in  existence  anywhere. 

If  you  attend  college,  we'll  pick  up  75%  of 
your  tuition.  You  can  even  earn  an  associate  degree 
from  the  Community  College  of  the  Air  Force. 

What  does  all  that  mean? 

It  means  there's  no  telling  where  technology 
is  going  in  the  future. 

But  with  Air  Force  training,  you've  always  got 
a  future  to  look  forward  to.  For  more  information, 
call  an  Air  Force  recruiter  at  1-800-423 -US AE 


»asy  Woridng™  is  a  line  of  high  qualitj-.  low  cost  personal  productivin'  prcgnmis 
designed  for  the  person  wlio  wants  to  ^nd  time  doing  useful  wwk,  not  stru^ling 
with  complec  computer  commands  and  long  manuals.  Each  Easy'  Working  product  is 
ctrcMy  designed  to  work  alone  or  in  rombinadon  widi  other  members  of  the  Easy 
Working  Miily. 

On-saeen  menus  provide  "at-a-glance"  summaries  of  die  features  of  die  program. 
„       When  you  select  a  feature  from  tlie  menu  biu-,  a  menu  drops  do^vn  to  show  all  of  die 
I       available  options.  Every  command  a\'aiiahle  is  displa)'ed  in  the  drop-down  menu.  You 
will  find  that  you  will  spend  less  time  getting  to  know  the  program  and  more  time  on 
your  projects.  And  since  each  memba  of  the  Easj'  Working  &mlly  uses  die  same 
command  structure,  once  you  learn  how  to  use  one,  you'll  find  a  head  start  on  learning 
to  use  die  odier  two.  But  don't  be  fooled.  Eas)'  doesn't  mean  incomplete.  ^^  Working 
products  are  full-featured. 

EasyWoiking'Mhe  Writer™: 

Complete  won!  processing  features  allow  you  to  create  your  letters  and  rqwrts  and 
arrange  diem  to  suit  }-our  needs,  includes  100,000  word  spellchecker.  Edidng 
functions  include  insert,  delete,  cut,  paste,  and  cqjy. 

Easy  Woridng'":  Tbe  Filer": 

A  multi-purpose  program  which  simplifies  the  storage,  selecticMi,  and  reporting  of 
information.  Maintain  or  create  mailing  lists,  inventories,  dub  memberships,  and  other 
types  of  infomiatioa 

Easy  Woridng™ :  Tht  Planner™ : 

Tlie  Planner  provides  you  witli  all  of  the  professioreil  features  of  an  electronic  spread- 
sheet Extensive  madiematical  operations  easily  create  your  ^readsheet  for  budgeting 
tax  calculation,  expense  reports,  financial  statements,  and  other  applications. 


The  Writer,  The  Filer,  and  The  Planner  full)' 
integrate  with  each  other. 


Available  at  fine  software  dealers  or  for 
orders  onK' call: 


1-800-826-0706 

Others  cdl:  (617)494-1 200 


j^plell+,ne,nc  ^.95 

Commodore  64/128  $9.95 

IBiVl/POAT  $9.95 


spjnmaii^R 


spinnaker  Software,  Corp.,  One  Kendall  Square,  Cambridge,  MA  02 1 39 
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Editor's  Notes 


We're  just  back  from  the  Winter  Con- 
sumer Electronics  Show  (WCES)  in  Las 
Vegas,  a  huge  display  of  all  the  latest 
televisions,  audio  and  video  systems, 
VCRs,  computers,  software,  electronic 
musical  instruments,  printers,  and  oth- 
er technological  gadgets  that  will  be 
headed  your  way  in  catalogs  and  on 
store  shelves  over  the  next  12  months. 

The  computer  and  software  section 
was  dominated  by  the  massive  exhibit 
from  Nintendo,  the  Japanese  company 
that  now  controls  70  percent  of  the 
billion-dollar-plus  videogame  market. 
Only  slightly  smaller  was  the  Sega 
booth,  another  videogame  giant.  The 
startling  resurgence  of  that  segment  of 
the  industry  during  the  past  year  and  a 
half  is  remarkable  when  you  consider 
that  the  business  was  pronounced  dead 
just  four  years  ago.  With  dozens  of 
game  cartridges — many  of  them  con- 
versions of  computer  software  prod- 
ucts— Nintendo  and  Sega  attracted  a 
lot  of  attention  at  the  show. 

Despite  the  flashy  presence  of  the 
videogame  companies,  there  were 
scores  of  new  computer  software  prod- 
ucts being  demonstrated  at  the  show 
and  in  hotel  suites  throughout  Las  Ve- 
gas by  dozens  of  companies.  And  there 
were  significant  displays  of  several 
IBM-compatible  computer  systems 
from  companies  who  are  offering  good 
prices  and  loads  of  options. 

The  presence  of  Apple,  Atari,  and 
Commodore  at  WCES,  on  the  other 
hand,  was  largely  oblique.  While  virtu- 
ally every  major  software  publisher 
was  showing  new  and  exciting  products 
for  the  64  and  the  128,  Commodore 
sponsored  no  floor  display.  The  same 
could  be  said  for  Atari,  which  had  a 
suite  away  from  the  show  floor  and 
sponsored  ads  in  the  daily  show  maga- 
zines for  its  Atari  game  systems.  De- 
spite Atari's  emphasis  on  its  lucrative 
game  machines,  there  was  still  a  variety 
of  new  software  packages  for  the  ST 
computers  and  a  smaller  number  for 
the  Atari  XL/XE  systems. 

Unlike  Atari  and  Commodore,  Ap- 
ple Computer  and  IBM  have  never  con- 
sidered the  CES  shows  necessary  for 
distribution  of  their  computers.  It  ap- 
pears now  that,  at  least  for  the  Winter 
CES,  Atari  and  Commodore  are  adopt- 


ing the  same  attitude.  They  have  appar- 
ently decided  that  their  resources  are 
better  spent  by  promoting  Commodore 
Amigas  and  Atari  STs  at  the  semiannu- 
al Computer  Dealers  Exposition  (COM- 
DEX) in  Las  Vegas  and  Atlanta,  leaving 
their  machines  to  be  promoted  at 
WCES  through  the  software  developed 
and  peddled  by  third-party  companies. 

And  that,  in  a  way,  is  unfortunate. 
While  Nintendo  and  Sega  are  delightful 
systems,  they  may  be  seizing  the  lion's 
share  of  the  game  market  by  default. 
There's  no  question  that  Apple,  Atari, 
Commodore,  and  now  IBM-compatible 
systems  are  all  terrific  game  machines. 
What's  more,  these- machines  carry  an 
added  consumer  benefit  that  the  dedi- 
cated game  systems  simply  can't  offer: 
As  computers,  they're  far  more  than 
just  game-playing  devices;  they  are 
anything  machines,  Not  only  can  con- 
sumers play  games  on  their  computers, 
they  also  can  take  a  break  from  gaming 
and  use  the  machines  for  word  process- 
ing, spreadsheets,  paint  programs,  tele- 
communications, and  all  the  other 
software  applications  that  have  made 
the  computer  such  an  influential  piece 
of  technology. 

We  would  love  to  see  Atari  and 
Commodore  return  to  both  CES  shows 
in  the  future,  if  only  to  continue  to 
remind  the  industry  assembled  there 
just  how  good  their  computers  are.  But 
whatever  eventually  happens  on  that 
score,  the  more  important  point  is  that 
software,  peripheral,  and  new  hard- 
ware companies  are  fueling  a  consumer 
computer  market  that's  still  growing.  In 
next  month's  issue,  we'll  take  an  in- 
depth  look  at  some  of  the  most  signifi- 
cant stories  from  WCES. 


Keith  Ferrell  and  Selby  Bateman 
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CAN  ¥)U  CUT  IT? 


Can  you  handle  the  excitement  of 
the  hottest  arcade  nnegahits? 

Then  cut  out  these  name  plates, 

mount  'em  on  your      

monitors  and  boot 
up  Gauntlef  and 
Paperboy'  from 
Mindscape.  That's 
all  you  need  for 
absolutely  outrageous 
arcade  action,  right 
at  home. 


You'll  get  real  arcade  graphics.  Real 

arcade  feel.  Real  arcade  excitement. 

After  all,  these  are  based  on  the  real 

arcade  classics.  So 

get  set,  get  psyched 

for  the  arcade  to  hit 

home.  Just  pick  up 

new  Gauntlet  and 

Paperboy.  That  is, 

if  you  think  you  can 

cut  it. 


Mindscape  takes  the  arcade  home. 


HD  VC  «  .1     ■.•C 


Visit  your  relailef  or  call  1^800-221-9884  lor  VISA  or  MasterCard  orders.  To  purchase  by  rnai!,  ^ 
TOur  card  number  v/Hh  expiration  dale,  check  or  money  orfler  tor  S34,95  each  (C64/1 28  a«i  Aten  KB), 
or  S49,95  (Alan  ST,  Paperboy  only)  plus  S3,00  for  handling  lo  Mindscape.  Inc.,  RO.  Bos  1167. 


NorBiSfOOfcL  60065-1167. /yiow  3-5««eks  lor  delrvery  l^gel  eagles  lake  nole,  S  1987  Mindscape.  Inc 
Mindscape  is  a  trademark  of  MindKape.  Inc  Paperboy"  S  1984  Atari  Games.  All  rghts  /esenrtKJ, 
Gaunllet"  f  1965  Alan  Games  AJI  nghls  reserved. 
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The  Powerful 

New  Music  Machines 


Last  year,  for  the  first  time,  electronic  musical  instru- 
ments outsold  acoustic  ones.  Turn  on  a  radio  or  televi- 
sion, and  it's  impossible  to  miss  the  change  that  is 
happening  in  the  musical  world:  The  electronic  chip 
and  the  computer  are  joining  the  violin,  piano,  and  gui- 
tar in  the  ranks  of  serious  musical  instruments.  While 
some  would  rather  ignore  its  presence,  many  musicians 
are  embracing  the  technology  that  provides  them  with  a 
new  tool  for  composing,  recording,  and  playing  music. 

Tom  Netsel,  Assistant  Features  Editor 


In  1983,  Americans  bought  more  than 
233,000  pianos  and  392,000  digital  key- 
boards. Two  years  later,  piano  sales  had  de- 
clined by  almost  half,  while  the  demand  for 
their  electronic  counterparts  more  than  dou- 
bled. Last  year,  electronic  keyboard  sales 
topped  two  million.  Of  the  $3  billion  spent 
on  musical  instruments  in  1987,  more  than 
half  went  for  the  purchase  of  electric  or  elec- 
tronic instruments. 

Digital  keyboards,  electric  guitars,  elec- 
tronic violins,  drum  machines,  synthesizers, 
and  sound  samplers  are  being  connected  to- 
gether and  controlled  by  computers  to  create 
new  sounds  impossible  to  play  on  traditional 
instruments.  In  addition  to  creating  new 
sounds,  computers  can  bend,  shape,  com- 
press, and  stretch  musical  notes  to  imitate 
traditional  instruments  or  whole  orchestras 
in  ways  never  imagined  by  musicians  just  a 
few  years  ago. 

Today's  Folk  Music 

Jon  Appleton,  professor  of  music  at  Dart- 
mouth College,  is  not  surprised  by  the  shift  in 
popularity  from  traditional  acoustic  instru- 
ments to  electronic  ones.  "Digital  instru- 
ments are  the  folk  instruments  of  our  time," 
he  says.  "That's  what  people  are  making 
music  on  today," 

Some  critics  contend  that  computers 
cannot  make  music,  arguing  that  electronic 
parts  and  components  produce  an  unnatural 
or  artificial  sound.  In  the  past,  musicians 
made  music  by  four  basic  methods:  striking 
an  object  (piano  or  drum),  rubbing  two  items 
together  (violin  or  cello),  blowing  air  through 
an  object  (trumpet  or  bagpipe),  or  plucking  a 
string  (guitar  or  harpsichord).  Today,  these 
methods  have  been  extended  vasdy  by  digi- 
tal technology. 


Digital  Sound 

When  sound  is  recorded  on  a  compact  disc  or 
digital  tape,  audible  vibrations  enter  a  micro- 
phone and  are  converted  into  numbers  (dig- 
its). These  numbers  can  be  stored  and  played 
back  without  being  affected  by  dust,  war- 
page,  or  other  problems  that  can  plague  con- 
ventional analog  recordings. 

Once  stored,  the  digits  can  be  processed, 
and  that's  what  a  computer  does  best.  A 
computer  can  change  the  pitch,  adjust  the 
volume,  or  manipulate  the  waveform  of  the 
sound  in  dozens  of  ways,  depending  on  its 
programmed  instructions. 

A  Musical  Revolution 

Computers  such  as  the  Commodore  64  and 
the  Apple  IIGS  have  internal  sound  chips  that 
lend  themselves  well  to  musical  applications, 
but  most  personal  computers  can  be  used  to 
control  external  digital  musical  instruments. 
This  was  made  possible  by  the  introduction 
of  MIDI, 

In  the  early  1980s,  the  giants  of  the 
electronic  music  industry  got  together  to  de- 
velop a  standard  that  would  enable  digital 
musical  instruments  to  exchange  data.  The 
hardware  and  software  specifications  the 
manufacturers  agreed  upon  is  called  MIDI 
(Musical  Instrument  Digital  Interface).  This 
standard,  released  in  August  1983,  enabled 
musicians  to  control  multiple  synthesizers, 
sequencers,  and  sound  samplers,  all  made  by 
different  manufacturers,  from  a  single  control 
unit. 

Previously,  if  you  wanted  to  play  some- 
thing on  an  Oberheim  keyboard,  a  Yamaha 
synthesizer,  and  a  Roland  drum  machine, 
you  needed  an  extra  set  of  hands  or  more 
musicians.  It  was  impossible  to  connect  in- 
struments made  by  various  manufacturers  in 
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any  productive  manner.  With  MIDI,  it's  now 
possible  to  play  up  to  16  different  synthesiz- 
ers or  drum  machines  from  one  controller  or 
keyboard.  This  standard  has  permitted  digital 
music  to  evolve  at  a  tremendous  rate.  If  the 
major  computer  makers  showed  such  coop- 
eration, you  would  be  able  write  a  program 
on  your  IBM,  save  it  to  disk,  and  then  run  it 
on  a  friend's  Atari. 

MIDI  And 
Computers 

While  MIDI  was  not  de- 
veloped with  personal  ' 
computers  in  mind,  their 
processing  capabilities 
make  them  ideal  con- 
trollers for  digital  instru- 
ments.  Software  and 
hardware  manufacturers 
jumped  on  the  MIDI 
bandwagon,  and,  before 
long,  interfaces  and  pro- 
grams for  IBM,  Commo- 
dore, Atari,  and  Apple 
were  on  the  market. 
Now  there  are  hundreds  of  programs  for 
sequencers,  samplers,  controllers,  librarians, 
and  printers  designed  for  the  amateur  musi- 
cian and  for  the  seasoned  professional. 

Using  such  a  system  allows  one  musi- 
cian to  compose,  record,  edit,  and  play  multi- 
ple-voiced compositions  that  can  sound  like 
traditional  instruments  or  have  electronic 
voices  never  heard  before.  Professional  art- 
ists, impressed  with  MIDI'S  creative  flexi- 
blity,  push  the  technology  to  new  limits. 
Peter  Gabriel  recently  contacted  Frank  Fos- 
ter, president  of  Hybrid  Arts,  which  is  a 
major  supplier  of  MIDI  software  for  Atari. 
Gabriel  was  impressed  with  the  Atari  ST, 
which  has  a  built-in  MIDI  port,  and  he  re- 
cently added  one  to  his  studio.  Foster  says 
Gabriel  was  particularly  interested  in  Hy- 
brid's Android  programs,  which  can  supply  a 
musician  with  hundreds  of  new  sounds. 

Each  week  Jan  Hammer  composes  and 
records  the  music  for  Miami  Vice  at  his  home 
studio  in  New  York.  An  IBM  PC  XT  helps 
Hammer  control  an  array  of  synthesizers  and 
digital  instruments. 

Phihp  Glass,  Frank  Zappa,  Pat  Metheny, 
Mike  Finder,  Stevie  Wonder,  and  Herbie 
Hancock  are  just  a  few  of  the  musicians  who 
have  turned  their  talents  to  digital 
technology. 

While  the  professionals  have  a  wide 
range  of  powerful  (and  expensive)  equipment 
at  their  disposal,  the  amateur  musician  or 


computer  hobbyist  can  still  assemble  a  so- 
phisticated MIDI  system  for  a  modest  cost. 
The  Casio  CZ-101  'and  the  Yamaha  DX-lOO 
are  two  popular  MIDI-equipped  keyboards 
priced  at  $499  and  $445,  respectively,  but 
which  can  be  found  discounted  to  about  half 
those  prices. 

On  the  other  end  of  the  price  scale  is 
New  England  Digital's 
Synclavier  Digital  Music 
System.  This  top-of-the- 
line  instrument — cho- 
sen by  Stevie  Wonder, 
Frank  Zappa,  Sting, 
Leonard  Bernstein,  and 
Chick  Corea — stores,  re- 
cords, reproduces,  or 
synthesizes  sounds  in- 
stantly at  the  touch  of  a 
button.  As  many  as  304 
different  sound  effects 
can  be  active  on  the  key- 
board at  one  time.  Prices 
begin  at  $60,000,  but 
more  sophisticated 
models  are  priced  a  few 
dollars  higher. 

Synclavier  And  Apple 

Last  year,  New  England  Digital  donated  a 
$500,000  Synclavier  to  Dartmouth  College's 
Bregman  Electronic  Music  Studio.  The  studio 
was  created  in  1968  when  computer  wizard 
John  Kemeny,  father  of  the  BASIC  program- 
ming language,  was  president  of  the  college. 
The  Synclavier  is  the  center  of  one  of  the 
most  advanced  music  instruction  studios  of 
its  kind  in  the  United  States. 

"Apple  Computers  donated  a  Macintosh 
Plus  for  each  of  16  student  workstations," 
says  Professor  Appleton,  co-director  of  the 
studio,  "but  Apple  is  upgrading  the  gift  to 
Macintosh  lis." 

Appleton,  who  pioneered  work  on  the 
digital  synthesizer  with  an  engineer  at  Dart- 
mouth and  a  student  who  later  formed  New 
England  Digital,  is  himself  a  programmer  and 
an  electronic  composer  with  more  than  30 
compositions  recorded  on  Folkways  and  Fly- 
ing Dutchman  labels.  He  formed  the  class 
around  the  Synclavier  and  the  Macintoshes 
to  teach  students  about  music  made  with 
computers  and  digital  devices  and  how  to 
compose  on  them. 

Students  have  complete  control  of  the 
Synclavier  from  their  workstations,  which 
are  equipped  with  the  Mac  11  and  a  Casio  CZ- 
1  MIDI  keyboard.  Compositions  can  be 
played  or  edited  instantly  using  the  Syncla- 
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Niime 


In  their  day,  they  ruled 
over  three  quarters  of  the 
earth's  surface. 

During  WWII,  they 
viciously  brought  Britain 
to  her 
knees. 
And 
Japan 
to  the 
ground 

These  were  the  silent 
killers:  Tench.  Gato. 
U-Boat. 

And  now,  they  return. 
In  this,  the  most  realistic, 
all-encompassing  simula- 
tion ever  created 
for  the  personal 
computer 

You  will  com- 
mand one  of  six 
types  of  Amer- 
ican subs  or  German  Kriegs- 
marine  U-Boats,  during  any 
year  from  1939  to  1945.       p-1 
You'll  perform  one  of  over    i — j 

The  No.  1  battety.       S«a  guard  radar  stub. 
The  ship's  heart. 


TA  KE  OUR  PREVIEW  DISK  FOR  A  SPIN.  Drop  this  coupon  in  the 
mail  ivilh  your  check  or  money  order,  and  we'll  gladly  send  you  to  the 
Seitith  Pacific  to  have  it  out  with  an  enemy  fleet. 

Mail  to  Sub  Battle  Previeui  PO.  Box  3745.  Young  America.  MN  55394 


Quantity 


Total 


Commodore  64/128 
IBM  PC  &  compat. 

Atari  ST 
Macintosh 
Total  Disks  Ordered 


S1.50ea.  _ 

Sl.SOea.  _ 

S2.75ea.  „ 

.      $2.75  ea.  _ 

.  Tbtal  Enclosed- 


_  Phone  ( 


■Age- 


Cily/State/Zip— 

Canadian  orders  please  add  5(K  for  additional  postage. 

Please  allow 4  toe  weeisjar delinfrf  Offer expim  12/.W88 and  is  valid oiOy  in 
the  continental  U-  S-  and  Canada.  \hid  where  pnihibiled. 


;  60  missions.  Or  you'll  en- 
"  gage  in  the  most  difficult 
task  of  all;  To  make  it 
through  the  entire  war. 
Each  vessel  is  com- 
pletely unique  and 
painstakingly  authen- 
tic, so  you'll  have  a  lot 
to  learn:  Navigation. 
Weather.  Radar. 


The  360°  periscopes. 


The  seated  control  mom. 
.,  YaurtlQ. 


And  the  contents  of  a 
vital  target  book, 
among  other  things. 

Your  arsenal  will  in- 
clude deck  and  anti- 
aircraft guns.  Torpedoes. 
And  mines. 

But  even  all  that  may 
not  be  enough. 

Because  besides  the 
risk  of  bumping  a  depth 
charge  or  facing  a  killer 
Destroyer,  you'll  still 
have  to  contend  with  the 
gunfire  of  enemy  aircraft. 

No  simulation  has 
ever  had  the  degree  of 
authenticity^  gut-wrenching 
action  or  historical  accuracy  of 
this  one. 

The  first  release  of  our  new 
Masters  Collection.  Andj 
a  challenge  of  unbe- 
lievable , 
depth. 

Apple  II  &  compatibles.  A pplellCi. 
Atari  ST  C&l/1^8.  IBM  <1 
cottjpatibles.  Macintosh. 

liidi'pendint '^Cfieratnr  Salt  u'tit*-r  Uinh 

&  dif.^el  t'7i^i>ifr'i.  trimming  and  conip.:;:  ..:■.'. 


25  cal.  gun. 


Water  purification. 


Professor  jon  Appleton  and  students  analyze  a  violin's  waveform  during  a  session  of  Dartmouth  College's 
Electro-Acoustic  Music  Program. 


vier's  synthesized  or  sampled  sounds.  The 
results  can  be  heard,  but  more  importantly, 
the  other  students  can  use  their  monitors  to 
see  what  is  happening. 

"Any  of  the  16  terminals  may  be  desig- 
nated as  the  master  terminal,  thereby  en- 
abling any  of  the  other  15  to  see  exactly  what 
the  master  is  doing,"  Appleton  says.  "They 
can  very  rapidly  move  through  different  pro- 
grams and  types  of  music  and  see  what  ev- 
erybody's done  instead  of  having  to  call  up 
one  program  at  a  time  and  have  people  hud- 
dle around  one  terminal." 

Music  students  and  computer  students 
work  together  at  Dartmouth.  The  goal  of  the 
computer  science  students  is  to  develop  the 
soft%vare  that  will  make  it  as  easy  as  possible 
for  the  musicians  to  access  the  synthesizer's 
capabilities.  "More  often  than  not,"  Appleton 
says,  "musicians  are  not  used  to  working 
with  computers.  It's  important  to  develop  a 
front  end  for  the  (Synclavier)  system  which  is 
user-friendly  in  the  best  sense  of  the  word — 
not  simple,  but  one  that  takes  into  consider- 
ation the  way  musicians  approach 
computers." 

An  Invisible  Workstation 

Appleton's  goal  is  to  train  young  composers 
and  to  introduce  them  to  computer  systems 
that  are  flexible.  A  professional  system  such 
as  the  Synclavier  is  powerful  but  very  com- 
plex. The  undergraduates  at  Dartmouth  work 


with  engineers  at  New  England  Digital  to 
produce  software  that  will  enable  a  composer 
to  use  the  Synclavier's  power  without  having 
to  devote  most  of  his  energy  trying  to  master 
the  system.  When  a  composer  has  an  idea  or 
an  elusive  piece  of  melody  that  he  or  she 
wants  to  capture,  the  ideal  workstation 
would  be  nearly  invisible.  It  would  allow  the 
composer  to  move  through  the  various  com- 
puter tasks  instantly,  so  his  or  her  energy 
could  be  devoted  to  composing  or 
performing. 

"It  doesn't  really  matter  what  instru- 
ment a  person  plays,"  Appleton  says.  "There 
are  very  effective  MIDI  interfaces  for  key- 
boards, guitars,  and  wind  instruments,  if  a 
traditionally-trained  musician  comes  to  such 
a  system,  he  should  be  able  to  generate  what 
we  call  note  lists  in  the  manner  most  comfort- 
able for  him  and  not  have  to  type  in  code." 

Digitized  music  is  here  and'  its  impact  on 
music  is  expected  to  be  even  greater  in  the 
future.  Synthesizers  and  electric  guitars  are 
the  instruments  of  our  times  and  the  instru- 
ments most  played  by  young  musicians.  Ap- 
pletons  feels  young  people  are  approaching 
music  with  a  more  playful  and  inventive 
bent.  Whether  they  play  a  traditional  instru- 
ment or  a  modern  one,  the  computer  and  a 
MIDI  interface  are  tools  to  help  them  create 
music,  record  it,  and  play  it  back  flawlessly, 
enabling  them  to  realize  their  musical  poten- 
tial more  easily. 
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Goodbye,  Guitar 

In  addition  to  being  a  tool  that  can  free 
musicians  from  mechanical  chores  that  stand 
in  the  way  of  producing  music,  computers 
with  built-in  voices  are  themselves  used  as 
musical  instruments.  If  music  is  defined  as  a 
series  of  pleasing  or  harmonious  sounds, 
then  the  determination  of  what  is  pleasing 
lies  in  the  ear  of  the  beholder.  Lome  Strider  is 
one  musician  who  turned  to  a  computer  and 
liked  what  he  heard. 

Strider  is  an  accomplished  classical  gui- 
tarist who  once  vowed  that  he  had  no  need 
for  a  computer.  He  practiced  his  guitar  in  the 
evening,  performed  occasional  concerts  with 
another  guitarist,  and  made  a  living  selling 
real  estate.  When  he  decided  a  computer 
could  help  his  business,  he  bought  a  Commo- 
dore 64,  His  music  was  never  the  same. 

Fascinated  by  the  64's  SID  (Sound  Inter- 
face Device)  chip,  Strider  tried  a  variety  of 
programs,  looking  for  ones  to  demonstrate 
the  computer's  capacity  for  reproducing  mu- 
sic. "I  started  ordering  any  music  disks  that 
came  on  the  market,"  Strider  says.  "Eventu- 
ally, I  realized  that  none  of  them  involved 
much  effort  or  art." 

Disappointed  by  the  commercial  pro- 
grams he  found,  Strider  took  up  program- 
ming as  a  hobby.  He  spent  his  evenings  at  the 
keyboard  trying  to  coax  Bach's  fugues  and 
Mozart's  sonatas  from  his  computer.  His  gui- 
tar gathered  dust. 

Strider's  musical  efforts  succeeded,  and 
he  thought  others  might  enjoy  listening  to 
classical  music  played  on  a  computer.  Ever 
the  entrepeneur — he  once  proposed  opening 
a  branch  of  his  real  estate  office  on  the 
moon — Strider  launched  a  new  enterprise 
called  Strider's  Computer  Classics.  He  pro- 
grams the  works  of  master  composers  on 
disks  that  play  through  the  computer's  three 
voices. 

Well-Tempered  Computer 

Strider  now  has  ten  disks  that  range  from 
Renaissance  music  of  the  1500s,  through  Mo- 
zart, Bach,  and  Clementi,  to  the  turn-of-the- 


century  ragtime  sounds  of  Scott  Joplin.  The 
disks,  which  sell  for  $9.95,  contain  7-15  se- 
lections and  provide  up  to  an  hour  of  music. 
Each  musical  selection  has  four  screens  of 
information  about  the  composer,  his  life,  and 
his  music, 

Strider  does  the  historical  research  as 
well  as  the  musical  programming.  For  ex- 
ample, the  disks  of  J.  S,  Bach's  Two-Part 
Inventions,  Three-Part  Inventions,  and  Well- 
Tempered  Clavier  each  contain  15  selections 
and  a  total  of  60  screens  of  text. 

The  real-estate  broker  and  musicologist 
is  somewhat  surprised  to  find  himself  a  soft- 
ware developer,  albeit  not  one  of  the  big  guns 
of  the  industry.  "It  took  me  two  or  three 
months  to  design  the  basic  structure  of  the 
disk,"  he  says,  "but  once  that  was  worked 
out,  all  I  have  to  do  is  write  the  music  files, 
then  change  the  text  and  menus."  His  latest 
disks  take  about  a  week  to  complete.  They 
are  available  from  several  distributors,  in- 
cluding Free  Spirit  Software. 

Strider,  who  calls  himself  more  of  a 
"whacker"  than  a  "hacker"  when  it  comes  to 
programming,  credits  Jeff  Johnson's  Virtuoso 
64  for  helping  him  with  the  mechanical 
chores  of  creating  music  on  a  computer.  The 
software  produces  code  that  can  be  used  to 
create  sound  effects  or  background  music  for 
any  type  of  BASIC  or  machine  language  pro- 
gram. "It's  a  no-frills  music  processing  utility, 
but  it  is  very  powerful,"  he  says,  "and  it 
serves  its  purpose  completely,"  Virtuoso  64  is 
distributed  through  Chipmunk  Software. 

Strider  is  content  with  his  new  form  of 
musical  expression,  but  his  former  partner, 
Paul  Brower,  was  disappointed  when  the 
guitar  duo  disbanded.  Brower,  who  is  a  bit 
derisive  about  computer  music,  found  a  car- 
toon and  sent  it  to  his  former  musical  partner. 
It  shows  a  concert  stage  with  two  musicians 
bowing  to  the  applause  of  the  audience.  One 
musician  is  holding  a  classical  guitar,  while 
the  other  holds  a  computer.  Brower  added  a 
caption  that  reads,  "Paul  and  Lome  go  on 
tour  again."  @ 


Chipmunk  Software 

P.O.  Box  403 

Battle  Ground,  WA  98604 


Free  Spirit  Software 
538  S.  Edgeioood 
LaGrange.  IL 


Hybrid  Arts 

11920  W.  Olympic  Blvd. 

Los  Angeles,  CA  90064 


Strider's  Computer  Classics 
P.O.  Box  554 
Laytonville,  CA  95454 
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Buyer's  Guide  To  Tax 
Preparation  Software 

Caroline  D.  Hanlon 

April  15  th  always  comes  too  fast.  Home  tax  preparers 
with  personal  computers,  though,  have  a  powerful  tool  to  aid  in  computing  their 
returns.  As  this  buyer's  guide  shows,  there  is  a  wide  range  of  software  available  for 
a  variety  of  tax  situations,  including  a  program  for  Canadian  taxpayers.  This  guide 
includes  software  for  home  users  preparing  Form  1040  and  its  accompanying 
forms  and  schedules.  Nearly  all  the  programs  incorporate  the  new  tax  laws 
resulting  from  the  1987  Tax  Reform  Act. 


DivorceTax 

Research  Press 
IBM  PC  and  compatibles 
Lotus  1-2-3  or  compatible  spread- 
sheet required 

$65 

This  template  is  designed  to  help  structure  a 
divorce  settlement  so  both  parties  can  save  on 
taxes.  It  takes  into  account  issues  such  as  alimony, 
child  support,  property  settlements,  dependents, 
and  child  care.  The  program  must  be  used  with  a 
spreadsheet,  and  it  has  a  money-back  guarantee. 


Estate  Tax  Planner 

Randle,  Coray  &  Associates 
IBM  PC 

$95 

ETP  helps  users  plan  the  growth  of  their  estates 
and  then  estimate  the  annual  estate  and  gift  taxes 
for  the  next  20  years.  The  program  considers 
consumptions  or  gift  of  assets;  changing  estate- 
tax  rates  and  credits;  marital  deductions;  and  death 
of  first  or  second  spouse.  What-if  scenarios  can  be 
created  to  observe  the  effect  of  certain  financial 
decisions  on  estate  taxes.  The  manual  includes 
instructions,  forms,  checklists,  and  information  on 
wills,  tnjsts,  gifts,  and  estate  planning. 


Everything  You  Need  To  Do 
Your  Taxes  With  Lotus  1-2-3 

Woodbury  Software 

IBM  PC 

Lotus  1-2-3  required 

$39.95 

Ttiistax  planning  and  preparation  package  can  help 
users  compare  one  to  six  alternate  tax  strategies, 
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or  evaluate  taxes  for  one  to  six  years.  The  program 
helps  determine  the  tax  effects  of  financial  deci- 
sions, and  aids  in  sorting  tax  records.  IVIajor  IRS 
forms— such  as  the  1040  and  Schedules  A.  B,  C, 
D,  G,  SE,  and  W— can  be  completed.  Help  screens 
appear  throughout  the  menu-driven  program.  The 
package  includes  a  book  containing  instaictions 
and  examples. 


EZTax-Prep  1040 

EZ  Ware  Corporation 

Apple  Il-series;  IBM  PC,  PCjr,  and 

compatibles;  Macintosh 

Commercial  spreadsheet  required, 

printer  optional 

$99.95  (Macintosh);  $129.95  (all 

other  systems) 

EZTax-Prep  1040  includes  templates  for  complet- 
ing 26  IRS  forms  and  schedules:  1040,  1040ES, 
2106, 21 19,  2210,  2441,  3800, 3903, 4952, 4562, 
4684, 4797, 4972, 6251, 6252, 8582, 8598, 861 5, 
and  Schedules  A-F,  R,  and  SE.  Computations  are 
performed  by  the  program  and  the  results  are 
automatically  applied  to  the  appropriate  form.  The 
forms  can  be  printed  in  an  IRS-approved  format  on 
1040  stock  or  transparent  overlays  using  standard 
or  laser  printers.  The  program  can  also  be  used  to 
create  what-if  scenarios  and  plan  fulure  tax  strate- 
gies. The  audit-alert  feature  points  out  deductions 
that  could  possibly  trigger  an  IRS  audit,  and  data 
can  be  exported  to  EZ  Ware's  EZTax-Planior  more 
in-depth  tax  planning.  EXTax-Prep  1040  is  de- 
signed to  be  used  with  Lotus  1-2-3.  Multiplan. 
Excel,  or  Sywptiony  1.2.  Annual  updates  that 
include  all  tax  law  changes  are  available  for  a  fee. 


EZTax-Plan,  Personal  Edition 

EZ  Ware  Corporation 

IBM  PC,  PCjr,  and  compatibles; 

Macintosh 

Commercial  spreadsheet  required 

$95 

This  tax  preparation  package  is  designed  to  be 
used  with  Lotus  1-2-3,  Multiplan.  Excel,  or  Sym- 
phony. It  helps  individuals  project  future  taxes, 
compare  different  tax  strategies,  plan  for  retire- 
ment, and  complete  tax  form  1040  and  scheduies 
A,  D,  R,  and  SE.  The  Audit  Alert  feature  also  signals 
if  planned  deductions  may  lead  to  an  IRS  audit. 
EZTax-Plan  takes  into  account  charitable  contribu- 
tions, self-employment  taxes,  credits,  itemized 
deductions,  and  assets  such  as  bonds,  stocks,  and 
real  estate.  Updates  incorporate  any  changes  in  tax 
laws  that  may  occur.  The  package  includes  a 
coupon  for  one  free  update.  This  program  can  be 
used  with  EZTax-Prep  1040,  also  from  EZ  Ware. 


Future-Tax 

Taxaid  Software 
Commodore  64  and  Plus/4 
$39.95 

Future  Tax  incorporates  the  new  tax  laws  of  Ihe 
Tax  Reform  Act  to  help  users  calculate  income 
taxes  for  1988  and  1989,  and  plan  future  tax 
strategies.  The  menu-driven  program  includes  the 
new  tax  rates  and  automatically  figures  standard 
deductions,  exemptions,  limitations  on  IRAs,  sur- 
tax, deductions  for  the  elderly,  and  itemized  deduc- 
tion limitations.  The  data  can  also  be  output  to  the 
screen  or  printer. 
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Here  it  is.  You  won't  find  software  ttiat's  easier  to  use: 

•  Requires  no  accounting  l<nowledge 

•  Completely  menu-driven  witti  on-line  tieip 

«  93-page  fully  indexed  tutorial  manual  (on  disk) 

A  Proven  Track  Record.  Hard  to  believe  thie  S16  price?  Don't 

worry.  IVIoneyCounts®  has  been  marl<eted  for  three  years  and 

is  continually  receiving  rave  reviews.  There's  no  catch.  This  is  a 

fully  functional  system  that  compares  with  products  selling  for 

S99  and  more. 

Same-Doy  Shipping.  Order  today  and  own  MoneyCounts®  for 

only  316!  Add  S3  shipping  and  handling  (outside  North  America 

add  $7],  Iowa  residents  please  add  47=,  sales  tax,  Send  check 

or  money  order  payable  to  Fbrsons  Technology.  VISA  and 

MasterCard  orders  welcome. 
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Departmeniof  rhe  Ti-eaiui^^lniiprna"  Revenue  S*?fvice 

U.S.  Individual  Income  Tax  Return 
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/.  K,  Lasser's  Your  Income 
Tax  1988 

Simon  and  Schuster 
IBM  PC  and  compatibles 
256K,  DOS  2.1,  color  or  mono- 
chrome monitor 
$69.95 

This  tax  preparation  package  combines  software 
with  the  J.K.  Lasser  Tax  Institute's  tax  guide,  to 
help  users  complete  their  tax  returns  basetJ  on  the 
new  tax  laws,  and  learn  how  to  save  on  taxes  and 
avoid  penalties.  An  interview  feature  helps  users 
select  the  correct  forms,  and  the  questions  can  be 
modified  for  individual  needs.  There  is  an  onscreen 
calculator  to  use  with  either  the  vrorksheets  or 
actual  forms,  and  data  can  be  transferred  among 
the  forms.  Various  tax  strategies  can  be  input  to 
compare  liabilities.  Help  screens  contain  excerpts 
from  the  book.  Individuals  and  professional  tax 
preparers  can  use  the  program,  and  the  results  can 
be  printed  in  IRS-approved  format  or  on  original  IRS 
forms.  Owners  of  the  1 987  edition  can  buy  the  1 988 
edition  for  $39.95  with  proof  of  purchase. 


Macin  Tax 

Softview 

Macintosh  with  512K  memory 

$119 

This  tax  preparation  program  displays  the  IRS 
forms  on  the  screen,  and  the  user  fills  in  the 
appropriate  lines.  The  program  automatically  per- 
forms the  calculations  and  transfers  data  among 
the  forms.  There  are  13  worksheets  to  aid  in 
computing  taxes,  and  itemization  windows  help 
break  down  any  amount  into  a  detailed  fisting. 
Instructions  for  each  line  in  the  forms  can  be 
displayed  on  the  screen,  and  the  IRS  instruction 
book  is  included.  The  completed  forms  can  be 
printed  using  a  dot-matrix  or  laser  printer.  Macln- 
Tax  includes  forms  1040,  1040A,  1040EZ, 
1040ES,  2106.  2119,  2210,  2441,  3903,  4562, 
4562A,  4684.  4797,  4868,  4952,  6251,  6252, 
8283, 8582. 8598, 8615,  and  schedules  1,  A-F,  R, 
and  S£.  The  program  operates  with  MultiFinder. 
Annual  updates  are  available  for  S55.  State  tax 
programs  to  supplement  MaclnTax  are  available 
for  California  and  f^ew  York  for  S65  each;  state 
updates  cost  S35. 


PC/TaxCut 

Best  Programs 

IBM  PC  and  compatibles 

$75 

The  QuickTax  feature  in  this  program  can  automati- 
cally recalculate  tax  owed,  refund  due,  current  tax 
bracket,  and  taxable  income,  each  time  a  number 
changes  in  the  program.  This  helps  users  see  how 
variations  will  affect  the  tax  return.  PC/TaxCut 
offers  context-sensitive  onscreen  help  for  whatev- 
er topic  or  calculation  the  user  may  be  preparing. 
Forms  can  be  displayed  on  the  screen  before 
printing,  and  the  1040  can  be  printed  on  plain 
paper  with  an  IBM  or  Epson  dot-matrix  printer.  A 
telephone  tax  advisory  service  is  available  for 
registered  owners  of  PC/TaxCuttot  SI  per  minute, 
with  a  minimum  of  IS  minutes.  There  is  no  charge 
for  questions  concerning  program  operation,  Up- 
dates for  previous  owners  of  PC/TaxCutzre  avail- 
able for  S45. 
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Quick  Returns! 

Ontek  Development  Corp. 
Apple  II;  Macintosh;  IBM  PC  and 
compatibles 

IBM  PC  version  requires  25 6K 
RAM  and  DOS  2.0  or  higher  and 
supports  CGA,  EGA,  Hercules, 
and  monochrome  display  adapt- 
ers; Apple  II  versions  require  Pro- 
DOS  and  80-column  capability 
$24.95 

Designed  specifically  for  Canadians,  this  program 
helps  users  in  any  Canadian  province  or  territory 
complete  their  Canadian  income  tax  returns.  It  is 
available  in  1 1  versions.  Each  version  includes  the 
main  return,  1 1  subsidiary  federal  schedules,  and 
the  appropriate  provincial  and  territorial  forms.  The 
user  enters  the  data  in  the  highlighted  areas,  and 
the  totals,  deductions,  and  tax  payable  are  updat- 
ed. Total  amounts  are  automatically  transferred 
between  the  main  return  and  the  schedules.  Over 
120  screens  of  context-sensitive  instnjctions  pro- 
vide onscreen  help.  Returns  can  be  printed  out  in  a 
Revenue  Canada-approved  format.  A  checklist  of 
items  to  mail  with  the  return  can  also  be  printed. 


Swift  ax 

Timeworks 
Commodore  64  and 

$49.95 


128 


SwrffMhandles  tax  forms  1040, 1040A,  2441,  and 
1040EZ  and  schedules  A,  B,  C,  D,  G.  W,  and  SE.  It 
automatically  calculates  tax  alternatives— such  as 
income  averages— to  show  the  lowest  tax  to  pay. 
Changes  can  be  made  to  the  tax  return  at  a  later 
date,  using  the  taxpayer  file.  Information  can  be 
printed  directly  on  tax  forms  or  onto  blank  paper. 
Update  disks  with  ne'/v  tax  law  information  and 
tables  can  be  obtained  eacfi  year  at  extra  cost.  The 
64  version  operates  in  40-column  mode  and  the 
128  version  in  80-column  mode. 


Taxaid 

Taxaid  Software 
Commodore  64  and  Plus/4 
$44.95 

An  income  tax  preparation  program,  Taxaid  helps 
users  compiete  IRS  forms  1040  and  2441,  and 
schedules  A,  B,  C,  D,  and  E.  It  incorporates  the 
1 987  tax  law  changes  and  tax  tables,  and  calcula- 
tions are  automatic.  Results  can  be  printed  on  plain 
paper  in  an  IRS-approved  format.  The  program  is 
menu-driven  and  includes  a  manual. 


Tax  View  Planner 

SoftView 

Macintosh;  IBM  PC  and 

compatibles 

Requires  MaclnTax  or  TaxView 

from  SoftView 

$79 

This  tax  planning  program  includes  tax  tables  for 
1987-1991,  along  with  worksheets  to  calculate 
taxes,  tax  bracket,  child  care  credit,  itemized  de- 
ductions, capital  loss  limitations,  taxable  social 
security  benefits,  and  the  maximum  IRA  deduction. 
Users  can  compare  up  to  five  alternate  tax  strate- 
gies against  the  yearly  taxes.  The  program  can 
compute  withholding  aliowances  for  throughout 
the  year,  and  print  W-4  and  1040ES  forms. 


Tax  Advantage 

Arrays 

Apple  II;  IBM  PC 

$69.95 

A  tax  preparation  program  for  Forms  1040, 2106, 
2441,  4562,  and  6251.  and  Schedules  A,  B,  C,  D, 
E,  G,  SE,  and  W,  Tax  Advantage  automatically 
computes  the  totals,  displays  the  forms,  and  prints 
out  the  data.  It  can  handle  income  averaging, 
calculate  brackets  and  liabilities,  and  provide  year- 
round  tax  planning.  This  program  vwrks  witti 
Home  Accountant,  also  from  Arrays. 


The  Tax  Advantage 

Double  Eagle  Software 
IBM  PC  and  compatibles;  Apple 
Il-series;  Atari;  Atari  ST; 
Commodore  64  and  128 

$59.95 

This  federal  tax  preparation  program  incorporates 
the  tax  law  changes  for  the  1 987  tax  year  and  prints 
out  IRS-acceptable  forms  and  supporting  state- 
ments. It  can  help  users  prepare  Forms  104O,  2106, 
2441, 4562,  and  6251,  and  schedules  A.  B,  C,  D,  E, 
F,  and  SE.  The  program  can  also  be  used  for  tax 
planning.  Owners  of  The  Tax  Advantage  Early  Bird 
Edition,  which  includes  all  changes  through  August 
1,  1987,  can  purchase  the  final  edition  for  $15.95. 
The  two  editions  are  fully  compatible;  the  final 
edition  includes  all  tax  law  changes  through  Novem- 
ber 1987. 


Tax  Command  Planner 

Practical  Programs 

Commodore  64  and  128;  Apple  II; 

IBM  PC 

Apple  version  requires  128K;  IBM 

PC  version  requires  128K  and 

DOS  2.0  or  higher 

$69.95 

With  this  ten-year  tax  planning  program,  users  can 
compare  six  tax  options  for  up  to  five  years  at  a 
time.  The  program  uses  current  tax  tables  to  calcu- 
late marginal  tax  rates,  (ong  and  short  term  gains 
and  losses,  and  taxes  from  income  averaging.  Tax 
rates  can  be  adjusted  according  to  tax  law  changes, 
and  updates  will  be  available  each  year,  A  manual 
provides  line-by-line  instmctions. 


Tax  Command  Professional 

Practical  Programs 

Commdore  64  and  128;  Apple  II; 

IBM  PC 

Apple  version  requires  64K;  IBM 

PC  version  requires  128K  and 

DOS  2.0  or  higher 

$49.95 

In  this  program,  IRS  forms  appear  on  the  screen  as 
a  series  of  menus  into  which  the  user  enters  dollar 
amounts.  A  calculator  and  current  tax  tables  are 
incorporated  into  the  program  to  automatically 
calculate  the  totals.  The  program  can  complete 
Forms  1040,  1040ES,  2106,  2119,  2441,  3903. 
and  8615,  and  Schedules  A,  B,  C,  D,  E,  F,  R,  and 
SE.  (The  Commodore  64  and  1 28  versions  do  not 
include  Form  1040ES  or  Schedule  F.)  tt  compares 
itemized  to  standard  deductions  and  provides  line- 
by-line  tax  information  entry.  A  summary  of  the 
information  can  be  printed  for  personal  records,  or 
the  data  can  be  printed  directly  onto  IRS  forms. 
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The  program  works  with  most  printers  with  PICA 
spacing.  The  IBM  version  displays  in  80-column 
mode.  A  disk  drive  is  required  and  a  manual  is 
included.  Annual  updates  are  available  to  registered 
users  at  half  price.  A  money-back  guarantee  is 
offered. 


Tax  Master 

Master  Software 
Commodore  64 
Printer  optional 
$30 

Individuals  can  use  this  program  to  prepare  their 
federal  tax  forms  1040  and  4562,  and  schedules 
A-F.  The  program  includes  the  tax  tables  and  a 
calculator  function  to  automatically  compute  the 
amounts.  Results  can  be  transferred  from  one 
form  to  another,  and  more  tfian  one  schedule  can 
be  completed  for  each  user.  TaxMaster\s  a  menu- 
driven  program  that  can  store  data  for  more  than 
one  taxpayer,  and  the  information  can  be  printed  to 
screen  or  printer.  Tfie  package  includes  an  instmc- 
tion  manual  and  a  coupon  for  a  discount  on  the 
1988  version. 


Tax  Master 

Master  Software 
Commodore  64  and  128 
Disk  drive  required 

$30 

The  1987  version  of  Tax  Master  helps  users 
complete  Federal  tax  forms  1040  and  4562,  and 
Schedules  A,  B,  C,  D,  E,  and  F.  The  program  uses  a 
built-in  calculator  and  tax  tables  to  calculate  taxes. 
Data  can  be  transferred  between  forms  and  printed 
out  in  80-column  mode.  This  version  incorporates 
the  1987  tax  law  changes. 


Tax  Preparer 

HowardSoft 

IBM  PC  and  compatibles 

128K  or  GW-BASIC  with  192K 

$295 

Tax  Preparer  includes  all  the  tax  law  changes 
through  1990  based  on  the  Tax  Reform  Act.  and 
enables  users  to  forecast  their  tax  liabilities  beyond 
1987.  The  user  enters  the  data,  and  the  program 
automatically  performs  all  calculations  relative  to  the 
tax  year  entered.  The  data  is  then  transferred  to  over 
20  IRS  forms  and  schedules.  Results  are  checked 
against  Vk  tax  code  to  make  sure  limits  have  not 
been  exceeded,  and  to  make  sure  the  forms, 
schedules,  and  worksheets  can  be  printed  in  IRS- 
approved  formats.  Users  can  also  create  what-if 
scenarios  to  plan  future  tax  strategies.  Onscreen 
instnjctions  are  provided  along  with  a  handbook  and 
telephone  support.  The  program  uses  split  screens 
and  windows. 


Tax  Preparer 

HowardSoft 
Apple  Il-series 
64K  required 
$250 

Tax  Preparer  includes  all  the  tax  law  changes 
through  1990  based  on  the  Tax  Reform  Act,  and 
enables  users  to  forecast  tax  liabilities  beyond  1987. 
The  user  enters  the  data,  and  the  program  automati- 
cally performs  all  calculations  relative  to  the  tax  year 
entered.  The  data  is  then  transferred  to  over  20  IRS 
forms  and  schedules.  Results  are  checked  against 
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the  tax  code  to  make  sure  limits  have  not  been 
exceeded,  and  to  make  sure  the  forms,  schedules, 
and  worksheets  can  be  printed  in  IRS-approved 
formats.  tJsers  can  also  create  what-if  scenarios  to 
plan  future  tax  strategies.  Onscreen  instaictions  are 
provided  along  with  a  handbook  and  telephone 
support.  The  program  uses  split  screens  and 
windows. 


Tax  ZipFiles 

Petit  Design 
Apple  II  series 
Applezvorks  required 
$19.95 

Tax  ZipFiles  is  a  template  for  use  with  Applevmrlcs 
in  completing  IRS  Form  1040  and  Schedules  A,  C, 
D,  and  E.  The  tax-ledger  feature  can  sort  tax- 
deductible  expenses,  and  the  speedmaps  and 
speedpaging  features  aid  in  using  the  program.  A 
1 00-page  manual  is  included.  Wisconsin  residents 
must  add  5  percent  sales  tax  to  the  cost. 


TAXAID 

Taxaid  Software 
Commodore  64  and  Plus/4 

$44.95 

An  income  tax  preparation  program  written  by  tax 
accountants  and  designed  for  home  use.  The  latest 
edition  includes  all  the  current  changes  in  the  tax 
laws  for  the  tax  year  1987.  TAXAID  prepares  IRS 
Form  1040,  Schedules  A,  B,  C,  D,  E,  and  Form 
2441  (child  care).  The  menu-driven  program  calcu- 
lates automatically  with  all  tax  tables  built  in.  An 
editing  feature  allows  users  to  make  changes  and 
revisions  at  any  time.  Printout  is  in  IRS-approved 
format. 


TaxEase 

Park  Technologies 

IBM  PC  and  compatibles 

256K  memory  and  spreadsheet 

required 

$69.95 

TaxEase  helps  users  complete  both  federal  and 
state  tax  forms,  automatically  computing  the  taxes 
and  pnnting  the  results  on  IRS-approved  forms. 
Values  can  then  be  transferred  among  the  forms. 
Versions  are  available  for  20  states:  Arizona,  Cali- 
fornia, Colorado,  District  of  Columbia,  Georgia, 
Illinois,  Indiana,  f^/laryland,  fvlassachusetts,  f\/l!chi- 
gan,  Minnesota,  Missouri,  Worth  Carolina,  New 
Jersey,  f\lew  York,  Ohio,  Oklahoma,  Pennsylvania, 
Virginia,  and  Wisconsin.  A  version  containing  only 
the  federal  tax  forms  is  also  available.  Updates  are 
available  for  $34.95. 


Tax  View 

SoftView 

Apple  IlGS;  IBM  PC  and 

compatibles 

$119 

TaxVlew  helps  users  complete  their  tax  forms  or 
create  what-if  scenarios  to  determine  the  best  tax 
plan.  Replicas  of  27  major  IRS  tax  forms  and 
schedules  appear  on  the  screen,  and  when  com- 
pleted, can  be  printed  out  to  a  dot-matrix  or  laser 
printer.  The  forms  and  schedules  can  be  linked 
together,  and  data  can  be  imported  from  text  files. 
The  program  checks  for  errors  and  any  violation  of 
an  IRS  aile.  Instaictions  for  each  line  in  a  form  can 


be  called  at  any  time,  and  there  are  13  worksheets 
to  help  in  calculations,  \fersions  are  also  available 
for  some  states,  including  California  and  New  York, 
for  $65.  Annual  updates  to  the  federal  tax  package 
are  $55,  and  state  updates  are  $35.  The  IBM 
version  operates  under  Microsoft  Windows:  a  run- 
time version  of  that  system  is  included  on  the  disk. 


Taxpertise  Preparer 

Marnoble  Software 

MS-DOS  or  PC-DOS  machines 

Lotus  1-2-3  or  Symphony  required 

$49.95 

Taxpertise  uses  a  fill-in-the-blanks  format  so  the 
screens  look  like  the  actual  tax  form.  The  complet- 
ed forms  can  be  printed  onto  a  tax  form,  on  blank 
paper  for  use  with  transparancies,  or  in  an  IRS- 
approved  format.  This  program  helps  users  com- 
plete the  following  tax  forms:  1040,  1040A, 
1040EZ,  1040ES,  1040X,  1116,  2106,  2119, 
2210,  2210F,  2441,  3468,  3800,  3903,  3903F 
4562, 4684, 4797, 4868,  5695,  6251 ,  8598, 8606, 
and  6615,  and  schedules  A-F,  R,  and  SE.  State 
forms  can  also  be  purchased  forS20  for  California, 
Georgia,  Illinois,  Maryland,  l^ew  Jersey,  New  York, 
Ohio,  Pennsylvania,  Virginia,  and  V\feshington  D.C. 
Disks  are  available  in  S'i-  or  3'A-inch  formats. 


Taxpertise  Preparer  State 
Programs 

Marnoble  Software 
MS-DOS  or  PC-DOS  machines 
Lotus  1-2-3  or  Symphony,  and 
Taxpertise  Preparer  required 
$59.95 

State  tax  returns  can  be  completed  for  California, 
Georgia,  Illinois,  Maryland,  New  Jersey,  New  York, 
Ohio,  Pennsylvania,  Virginia,  or  lAfashington  D.C. 
The  program  must  be  used  in  conjurjction  with 
Taxpertise  Preparer.  When  purchased  with  the 
federal  tax  package,  each  state  package  costs  $20. 
If  purchased  separately,  each  state  package  costs 
$59,95. 


TurboTax  1988,  Version  5.0 

ChipSoft 

IBM  PC  with  256K  memory 

$75 

TurboTax  is  a  tax  preparation,  planning,  and  re- 
cordkeeping package.  With  this  program,  users 
can  complete  over  35  IRS  forms,  plus  supporting 
schedules  and  worksheets.  Online  instmcttons, 
including  a  30-second  manual  at  the  beginning  of 
the  program,  help  answer  questions  about  the 
forms,  and  customer  support  is  provided  by  tele- 
phone or  through  the  ChipSoft  bulletin  board.  A 
data  examiner  option  can  point  out  anything  left 
out  of  a  return,  and  the  tax  window  feature  displays 
the  current  tax  status  throughout  the  program. 
Most  of  the  math  calculations  are  performed  auto- 
matically but  a  pop-up  calculator  and  notepad  are 
also  available.  The  next  year's  tax  laws  are  built 
into  the  planning  mode  of  the  program  to  facilitate 
tax  recordkeeping  and  planning.  The  data  can  be 
printed  onto  supplied  1040  forms,  or  the  forms 
can  be  printed  on  IBM-  or  Epson-compatible  dot- 
matrix  printers.  The  Price  mterhouse  Personal 
Tax  Advisor  guide  to  1987  and  1988  taxes  is 
included  in  this  software  package.  There  are  26 
integrated  state  tax  packages  available  for  $40 
each.  A  version  for  professional  tax  planners  is 
also  available  for  $295. 


The  personal  computer 
buUt  to  go  home,  too. 


The  IBM-compatible  Laser  Compact  XT  is 
powerful  enough  for  the  office  and  easy 
enough  to  use  at  home. 

Most  people  take  work  home  to  keep  ahead  of  their 
competition.  The  Laser  Compact  XT  has  the  speed 
(10  MHz)  and  memory  (512K  expandable  up  to  1,640K 
bytes)  to  handle  IBM-compatible  software  from 
Lotus  1,2,3®  to  games,  and  beyond.  Its  compact 
design  with  built-in  handle  makes  it  easy  to  carry  home. 

The  Laser  Compact  XT  has  a  built-in  disk  drive, 
serial,  parallel,  joystick,  mouse  and  modem  interfaces 
to  hook  up  all  your  peripherals.  The  Compact  XT  gives 
you  the  choice  of  working  with  either  a  monochrome 


fl/ZLASERCOMRIVCTXT 


or  color  monitor  (CGA  and  Hercules®),  and  the  XTE 
model  is  EGA  compatible. 

The  Laser  Compact  XT  combines  performance  and 
speed  with  a  price  that's  easy  to  handle  at  under  $600. 
For  more  information  on  the  Laser  Compact  XT  and  the 
name  of  your  nearest  dealer,  contact  Video  Technology 
Computers,  Inc.,  400  Anthony  Trail,  Northbrook,  IL 
60062,  or  call  (312)  272-6760. 
In  Canada,  call  (604) 
273-2828. 


Lfl6«Co*TitMa  )fTij  B  Ifiownarti  of  Viii» Technology  Conipij.iori.  Int  iBM,  PC,  XTifidCGAareiBaisS&fm] 
Uadetridfiiji  ol  Imemarional  Bus.tne53  MaOiin«  Cofp  LqIji  tnd  1.2,3  av  regtstflT?*!  [r»d*fnartta  of  Lotus, 
DevfllopTton!  Cofp  HefCM'&s  i ^  a  regislewd  traiJwnarti  cf  HfiiCules,  (re.     1 1967.  Video  "fechrolog^  CompiflBra.  h* 


Manufactured  by 

VIDEO  TECHNOLOGY  COMPUTERS,  INC. 


MAKING  COMPUTERS  AFFORDABLE 


1040 


Depanmentol  th<  Tfeasury — Internal  Revenue  Service 

U.S.  Individual  Income  Tax  Return 


11®87 


Tax 

Preparation  Software  Publishers 

For  more  information  on  the  tax  preparation  software  listed  in  the 

Buyer's 

Guide,  contact  the  publishers 

listed  alphabetically  below. 

Arrays 

Master  Software 

Research  Press 

67U  Valjean  Ave. 

6  Hillery  Court 

4500  West  72nd  Terrace 

Van  Nuys.  CA  91406 

Randallstmon,  MD  21133 

Prairie  Village,  KS  66208 

8:8-994-1899 

301-922-2962 

913-362-9667 

Best  Programs 

Ontek  Development  Corp. 

Simon  and  Schuster  Computer 

Software 

2700  S.  Quincy  St. 

#3206,  24  Mabelle  Ane. 

One  Gulf  +  Western  Plaza 

Arlinglort,  VA  22206 

Toronto,  Ontario 

New  York,  NY  10023 

703-820-9300 

Canada  M9A  4X8 

212-373-8882 

ChipSoft 

416-234-1489 

Soflview 

5045  Shoreham  PI,  Suite  100 

Park  Technologies 

4820  Adohr  In.,  Suite  F 

San  Diego.  CA  92122 

Box  1317 

Camarillo.  CA  93010 

619-453-8722 

Clifton  Park,  NY  12065 

805-388-2626 

Double  Eagle  Software 

518-877-5881 

Taxaid  Software 

2210  Wiishire  Blvd.,  Suite  875 

Petit  Design 

606  Second  Ave, 

Santa  Monica,  CA  90403 

2650  S.  Shore  Dr. 

Two  Harbors,  MN  55616 

213-459-9748 

Milwaukee,  W!  53207 

218-834-3600 

EZ  Ware  Corporation 

414-483-9056 

Timeworks 

P.O.  Box  620 

Practical  Programs 

444  Lake  Cook  Rd. 

29  Bala  .^e.,  Suite  206 

P.O.  Box  93104 

Deer  field,  IL  60015 

Bah  Cynwyd,  PA  19004 

Milwaukee,  Wl  53203 

312-948-9200 

215-667-4064 

414-272-7227 

Woodbury  Software 

HowardSoft 

Randle.  Coray  6-  Associates 

127  White  Oak  Lane 

3224  Prospect  St.,  Suite  150 

Box  1228 

CN  1001 

La  ]olla,  CA  92037 

Utah  State  University  Post  Office 

Old  Bridge,  Nj  08B57 

619-454-0121 

Logan,  VT  84322 

201-679-0200 

Marnoble  Software 

801-753-2020 

3730  Kirby  Dr..  12th  Floor 

Houslor^,  TX  77098 

713-831-6866 

© 

PC  GAMES. THAT  TAKE  YOU  HIGHER! 


strategy  games 

for  your  IBM®  PC  and 

100%  compatibles. 

(Color  graphics  capability  required.) 
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"The  First  Name  In  Strategy  Games 


microcomputer  gomes  division 
The  Avalon  Hill  Game  Company 

A  MONARCH  AVALON.  INC,  COMPANY 

4517  Harford  Road  •  Baltimore,  MD  21214 
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and 


action 


Available  a1  leading 

computer  and  game  stores  everywhere 

.or  call  TOLL  FREE  1-800-638-9292  for  ordering  information. 


Reviews 


Top  Fuel  Eliminator 

Russ  Fisher 

Requirements:  Commodore  64,  Apple  11 
series. 


Top  Fuel  Eliminator  is  a  drag-racing  sim- 
ulation. Included  in  the  game  are  time 
trials  for  practice  sessions  and  entire 
racing  seasons.  Start  with  the  time  trials 
first,  to  become  familiar  with  the  drag- 
ster's characteristics  and  how  they  can 
be  modified  for  various  racing  condi- 
tions. An  entire  racing  season  consists 
of  nine  events  and  may  take  30  to  60 
minutes  to  play,  depending  upon  your 
skill  and  how  much  time  you  use  be- 
tween races  to  make  adjustments  to  the 
car,  Top  Fuel  Eliminator  is  a  combina- 
tion action/strategy  game,  where  the 
action  lasts  five  to  seven  seconds  for 
each  run  down  the  drag  strip. 

With  much  of  the  newer  software 
employing  highly  detailed  graphics,  it 
is  surprising  that  the  graphics  here  ap- 
pear somewhat  cartoonish.  It  also  takes 
time  to  reload  the  program  after  choos- 
ing either  Time  Trials  or  Play  Game.  It 
would  have  been  more  convenient  to 
switch  between  playing  rounds,  espe- 
cially when  first  learning  to  play. 

Competition  By  Computer 

Competition  in  Top  Fuel  Eliminator  is 
provided  by  eight  computer-controlled 
drivers  and  their  dragsters.  Some  of  the 
competitors  are  very  good  indeed. 
There  are  nine  different  contests  during 
the  game,  such  as  Winter  Nationals, 
North  Nationals,  and  Summer  Nation- 
als, culminating  in  the  World  Event. 

The  racing  season  progresses 
through  all  four  of  the  actual  seasons, 
and  racing  conditions  are  affected  ac- 
cordingly. Prior  to  each  race,  you  have 
an  opportunity  to  make  various  adjust- 
ments to  your  car  in  an  attempt  to 
compensate  for  varying  track  condi- 
tions. At  each  event,  you  can  check  air 
temperature,  track  temperature,  hu- 
midity, altitude,  and  whether  the  con- 
dition of  the  track  is  excellent,  average, 
or  downright  slippery,  Some  of  the  ad- 
justments, such  as  the  supercharger  set- 
ting, engine  timing,  and  fuel  mix,  are 


related  to  engine  horsepower.  At  lower 

humidities,  you  might  want  to  crank  up 
the  supercharger  pressure.  But  setting 
up  a  very  "hot"  engine  can  lead  to  more 
engine  failures  during  the  course  of  a 
race,  so  be  careful. 

Other  dragster  adjustments  are  re- 
lated to  traction  and  include  the  clutch, 
tire,  and  wing  settings.  You  may  vary 
the  tire  pressure,  clutch  slippage,  and 
wing  angle.  Poor  traction  will  result  in 
excessively  smoking  tires  during  the 
race.  Too  much  traction  can  have  the 
opposite  effect  and  bog  down  the  car. 
Sometimes  the  track  conditions  change 
rapidly,  so  be  sure  to  check  them  before 
each  race.  Astute  adjustments  are  called 
for  if  you  want  to  stay  in  the  running. 

Quaiifications  Required 

You  must  qualify  for  each  race.  You  have 
two  attempts  to  qualify  under  the  posted 
time,  which  is  the  slowest  time  of  the 
nine  drivers.  Of  course,  you  must  qualify 
without  jumping  the  "Xmas  tree"  yellow 
light  count-down,  and  you  must  stay  in 
your  lane  at  all  times.  One  gear  shift  is 
also  required  during  each  run.  Watch  the 
tachometer,  and  try  to  shift  between 
9000-9500  rpm.  Going  over  9500  rpm 
will  cause  your  engine  to  blow. 

After  qualification,  a  ladder  chart 
shows  the  matchups  for  the  first  round 
of  races.  The  chart  is  shown  again  after 
each  race  until  a  winner  is  decided.  If 
you  do  not  qualify,  or  you  lose  one  of 
the  races,  the  completed  chart  shows 
how  each  of  the  computer  players  per- 
formed during  that  event. 

Points  are  awarded  for  per- 
formance after  each  event,  and  a  sum- 
mary of  the  points  is  displayed.  You 
receive  between  100  and  800  points  at 
each  event:  100  points  for  showing  up, 
800  for  winning.  You  also  receive  1  to  8 
points  for  qualifying — 8  for  the  fastest 
qualifier  and  1  for  the  slowest. 

St\ifting  Sounds 

Although  the  actual  racing  times  are 
very  short,  there  is  a  lot  of  action  hap- 
pening during  the  race.  The  Xmas  tree 
is  displayed  at  the  lower-left  comer  of 
the  screen,  the  driver's  view  is  at  the 
bottom  center,  the  tachometer  is  at  the 
lower-right  corner,  and  an  overhead 
view  of  the  track  spreads  across  the  top 


Top  Fuel  Eliminator,  combining  action 
with  strategi/,  pits  you  against  eight 
other  dragsters  in  a  variety  of 
competitions. 

of  the  screen.  Watch  the  Xmas  tree  care- 
fully to  get  a  quick  start  without  red- 
lighting.  Then  pay  attention  to  keeping 
your  car  in  the  lane,  watch  the  tach  for 
the  proper  shift  point,  and  glance  at  the 
top  of  the  screen  to  see  what  is  happen- 
ing to  your  competitor.  You  may  want 
to  push  your  chair  back  a  few  feet  and 
hope  to  catch  a  glimpse  of  the  tach 
while  struggling  to  keep  the  car  in  your 
lane.  Fortunately,  the  sound  effects  give 
a  clue  to  engine  rpms;  you  may  find 
yourself  shifting  gears  when  it  sounds 
right.  I've  driven  into  the  wall  too  many 
times  while  trying  to  sneak  a  glance  at 
the  tach. 

After  each  race  or  qualifying 
round,  a  performance  analysis  is  pre- 
sented. Examine  this  screen  to  see  your 
reaction,  shift,  power,  and  traction  per- 
formance. This  screen  also  shows  if  you 
had  an  engine  failure,  crash,  red  light, 
or  if  you  crossed  the  line.  Finally,  your 
time  and  top  speed  are  posted.  The 
attention  to  detail  makes  Top  Fuel  Elim- 
inator a  good  game  choice  for  armchair 
racing  fans. 

Top  Fuel  Eliminator 
Activision  (Gamestar) 
P.O.  Box  7287 
Mountain  View,  CA  94039 
$29.95 
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Thexder 

James  V,  Trunzo 

Requirements:  Apple  UGS  with  512K  RAM 
{reviewed  here);  IBM  PC,  XT,  AT  or  true 
compatible  with  256K  RAM:  IBM  PS/2, 
supports  MCGA  color  mode;  Amiga. 


While  "Buy  American"  is  a  laudable 
suggestion  and  one  worth  heeding  on 
most  occasions,  that  isn't  the  case  here; 
if  IlGS  owners  wish  to  purchase  the  best 
arcade  games  for  their  machines, 
they've  got  to  buy  Japanese.  From 
Game  Arts  of  Japan  via  Sierra  On-Line 
(via  California)  comes  the  first  true  ar- 
cade game  for  the  Apple  IlGS:  Thexder. 

A  runaway  best  seller  in  Japan, 
Thexder  has  been  converted  to  Ameri- 
can machines  and  is  certain  to  gain  a 
following  here.  Its  theme  is  certainly 
popular  with  the  younger  set:  The 
Thexder  is  a  super-assault  vehicle — a 
hyper  dual-armor  Robot-Jet  transform- 
er that  mimics  the  popular  cartoon  and 
toy  Transformers.  A  single  keystroke 
changes  the  Thexder  from  a  powerful 
robot  into  a  sleek  jet,  and  in  either  form, 
it  can  fire  heat-seeking  lasers  at  its  foes. 

When  the  game  begins,  the  only 
Thexder  in  existence — piloted  by  you,  of 
course — is  trapped  inside  a  heinous  alien 


complex.  Twenty  different  enemy  crea- 
tures are  doing  their  best  to  be  sure  you 
don't  traverse  the  16  levels  of  play  and 
make  it  to  the  central  computer.  They 
have  good  reason  to  want  to  stop  you:  [f 
you  make  it  to  the  computer  and  destroy 
it,  you'll  not  only  escape,  you'll  end  the 
alien's  only  means  of  reproduction. 


Thexder,  a  best-seller  in  Japan,  is  now 
available  for  U.S.  machines. 

Thexder  is  the  standard  shoot-'em- 
up  arcade  space  game:  A  powerful  good 
guy  must  destroy  even  more  powerful 
bad  guys.  It's  far  above  the  standard  in 
graphics,  animation,  control  of  the  cen- 
tral character — the  Thexder  vehicle — 
and  challenge.  The  screens  are  beauti- 
fully drawn,  and  the  scrolling  is  seam- 
less and  unobtrusive.  Graphically, 
Thexder  delivers  on  its  promise  to  be  the 


game  by  which  all  others  of  its  type  will 
be  judged,  mainly  due  to  its  attention  to 
details.  Control  of  the  Thexder  is 
through  the  use  of  the  numeric  keypad 
(or  the  top  number  keys,  if  you  prefer) 
with  no  mouse  or  joystick  option.  This 
should  not  be  considered  a  drawback, 
however,  because  the  keypad  system 
works  quickly  and  efficiently.  Actually, 
it's  similar  to  the  multiple-button  con- 
trol panels  of  many  popular  full-size 
arcade  games. 

One  Life  To  Live 

As  for  the  challenge  of  play,  be  fore- 
warned. Thexder  is  not  an  easy  game, 
and  in  my  opinion,  it  can  be  very  frus- 
trating— especially  for  younger  chil- 
dren who  have  short  attention  spans.  It 
takes  a  while  to  get  the  hang  of  maneu- 
vering the  Thexder  and  even  longer  to 
figure  out  strategies.  These  features  can 
be  pluses  for  ardent  gamers,  but  work 
in  an  opposite  manner  for  the  casual  or 
younger  gamer.  Also,  if  the  Thexder  is 
destroyed,  game  play  starts  over,  but  at 
least  it  starts  over  from  the  beginning  of 
the  last  level  completed.  In  Thexder, 
you  only  live  once. 

The  20  different  opponents  out  to 
thwart  your  mission  are  a  paradox: 
Each  of  them  is  unique  in  its  overall 
appearance,  yet  many  of  them  are  so 
similar  in  shape,  they  can  confuse  the 


Retail  price:  S39.9S 

Available  for:  Commodore  64/128, 


PURE-STAI  BASEBALL 

PURE-STAT  BASEBALL  is  a  complete  statistical 
baseball  simuiatian  toi  sro,  one  or  IW)  players,  Oiat 
also  includes  a  built-in  STAT  COMPILER  and  a  pro- 
gram to  TRADE  PLAYERS.  GAME  PLAY,  MANAG- 
ER'S DECISIONS,  GRAPHICS  and  a  complete  sta- 
tistical library  establish  PURE-STAT  BASEBALL  as 
the  ULTIMATE  SPORTS  SIMULATION  program. 
PURE-STAT  BASEBALL'S  underlying  statistical 
framework  simulates  the  realities  of  baseball  like 
never  before.  Within  this  framework  the  program 
considers  each  PLAYER'S  BAniNG  STATISTICS 
AGAINST  both  LEFT  and  RIGHTHANDED  PITCH- 
ERS, along  with  the  graphics  and  attributes  of  every 
MAJOR  LEAGUE  STADIUM  from  the  optional  STA- 
DIUM DISK.  Every  PLAYER'S  FIELDING,  BASE- 
RUNNING  and  THROWING  ABILITIES  are  also  con- 
sidered. Opfional  TEAM  DISKS  are  available. 

IBM  PC,  and  APPLE  II 

FOOTBALL 

FOOTBALL  simulates  all  physical  aspects  of  the 
game  ol  football  down  to  the  finest  detail,  v/hile  you 
are  controlling  the  movement  of  key  players  on  the 
field,  for  one  or  two  players  FOOTBALL  sets  new 
standards  in  both  REALISM  and  PLAYABILITY  using 
an  overhead  3D  perspective  of  the  football  field  giv- 
ing full  view  of  ail  22  animated  players.  Every  offen- 
sive receiver  and  running  back  has  different  indi- 
vidual physical  attributes  (SPEED.  POWER,  AND 
CATCHING  ABILITY).  Each  player's  perlormance 
characteristics  help  you  determine  how  and  when 
to  use  that  player  most  effectively.  Each  quarterback 
has  unique  abilities  for  SHORT,  LONG  or  FLAT 
PASSES,  and  linebackers  have  pov*er  ratings  for 
tackling  ability. 
Retail  price:  SZ935 
Available  for:  Commodore  64/128.  and  IBM  PC 


PURE-STAT  COLLEGE 
BASKETBALL 

PURE-STAT  COLLEGE  BASKETBALL  is  a  com- 
plete staBsbcal  basketball  simulalion  for  zero,  one 
or  tw  players,  that  also  includes  a  STAT  COMPILER. 
The  game  uses  coaching  strategy  and  player  sta- 
tistics to  determine  the  outcome  of  each  play,  while 
graphically  depicting  the  sequence  with  10  ani- 
mated players  on  a  basketball  court.  The  game 
comes  with  20  all  time  great  college  teams  from 
past  and  present,  and  with  an  optional  CREATE 
TEAM  DISK  the  statistics  for  any  college  team  from 
any  division  can  be  entered. 
Retail  price:  $39.95 

Available  for:  Commodore  64/128.  IBM  PC,  and 
APPLE  II 


959  MAIN  ST.  SUITE  204 

STRATFORD,  CT  06497 

(203)  377-4339 


When  you  want  to  talk  computers.. 


ATARI  COMPUTERS         COMMODORE  COMPUTERS  MS/DOS  SYSTEMS 


65XE  64K  Computer 94.99 

130XE  132K  Computer 129.00 

520STFM    Monochrme   System. .Call 

520STFM  Color  System Call 

SF1224  Color  Monitor 309.00 

SF124  Mono  Monitor 149.00 


Atari  1040 

Color  System      ^899 

includes:  1040ST,  1  mb  RAM  with  SVs" 
drive  built-in,  1 92K  ROM  with  TOS,  Basic, 
ST  language  and  color  monitor. 


ATARI  ST  SOFTWARE 


Access 

Leaderboard  Golf 24.99 

Avant  Qarde 

PC  Ditto  (IBM  Emulation) 69.99 

Batteries  Included 

Degas  Elite 44.99 

DAC 

Easy  Accounting 59.99 

OSS 

Personal  Pascal 49.99 

TImeworks 

Wordwriter  ST 48.99 

VIP 

Professional  (GEM) 144.00 

Aegis  Development 

Animator/Images,. 89.99 

Electronic  Arts 

Deluxe  Video  1.2 89.99 

Qold  Disk  Software 

Pagesetter  w/Text  Ed 89.99 

Micro  llliistons 

Dynamic  CAD 349.00 

Micro  Systems  Software 

Scribble 69.99 

Word  Perfect  Corp, 

Word  Perfect 199,00 


AMIGA  SOFTWARE 


MACINTOSH  PRODUCTS 


Amiga  500  System 

Includes:  Amiga  500  CPU,  1  MB,  1080 
RGB  Monitor,  Amiga  DOS,  ^  .. 
Mouse,  Kaleidoscope  (#311 

Commodore  128 239.00 

Commodore  128D 469.00 

Commodore  64C 169,00 

64C,  1541C,  1802C  Pacltage... 549.00 

128,  1571,  2002  Package 719.00 

128D,  2002  Package 719.00 

HARD  DRIVES 
CMS 

MacStack  20 599.00 

Lo  Down 

Low  Down  20 849.00 

Mountain 

20  MB  Hard  with  SCSI 899,00 

Pro  App 

Pro  App  20S 699.00 

FLOPPY  DRIVES 
Ehman  Engineering 

800K  External  Floppy 189.00 

MONITORS 
Network  Specialties 

Stretch  Screen  20" 1599.00 

Radius 

Full  Page  Display  as  low  as.,  1499.00 

Sigma  Designs 

Laser  View  Display  System...  1899.00 

MEMORY  BOARDS 

Dove  Computer 

Mac  Snap  Plus  2 279.00 

Mac  Memory,  Inc. 

Max  Plus  Mega 329,00 

SCANNERS 
AST 

Turbo  Scan 1399,00 

SOFTWARE 
Ashton-Tate 

D:Base  Mac 319.00 

Microsoft 

Word  3.1 239.00 


AST  Premium  Computer Call 

Compaq from  1699.00 

IBM-PS-2  Model  30 Call 

IBM-AT  Enhanced Call 

Leading  Edge from  999,00 

PC-TOO  512K  AT/Compat  from  999.00 
Toshiba  T-1000  Lap  Top 889.00 


NEC  Multlspeed 

Lap  Top  Computer^  1349 


MULTIFUNCTION  CARDS 


AST 

Six  Pak  Plus  PC/XT 129.00 

Hercules 

Color  Card 159,00 

Graphics  Card  Pius 169.00 

Fifth  Generation 

Logical  Connection  256K 299.00 

Quadram 

XT-386  Inboard 899.00 

Video? 

VEGA  EGA  Adapter 169.00 

Zuckertjoard 

Color  Card  w/Parallei 89,99 

Ashton-Tate 

d-Base  ill  + 399.00 

Stii  Generation 

Fastback  Plus 89.99 

I  MSI 

Optimouse  w/Dr.  Halo 99.99 

Logitech 

C&  Mouse  w/software .79,99 

Lotus 

Lotus  1-2-3 329.00 

MicroPro 

Professional  4.0  w/GL  Demo... 239.00 

Mlcrostuf 

Crosstalk  XVI 89.99 

Word  Perfect  Corp. 

Word  Perfect  4.2 209.00 


MS/DOS  SOFTWARE 


y 


COIVIPUTER  IVIAIL  ORDER 


When  you  want  to  talk  price. 


DRIVES 


Atari 

AA314  DS/DD  Disk  (ST) ^1 99.00 

AA354  SS/DD  Disk  (ST) 129.00 

SHD204  20  Mb  ST  Hard  Drive  559.00 
Commodore 

Amiga  1020 189.00 

Amiga  1010  SVz" 219.00 

1541 C 169.00 

1571 229.00 

1581  3V2"  External 219.00 

Indus 

GT  Disk  Drive  Atari  XL/XE 179.00 

Racore 

Jr.  Expansion  Chassis 299.00 

Sostfats 

20  mb  ST-225  Hard  Drive  Kit. .339.00 

Supra 

20  Meg  Hard  Drive  (Amiga) 739.00 

20  Meg  Hard  Drive  (ST) 549.00 

Xebec 

20  Meg  Hard  Drive  (Amiga) 799.00 


MODEMS 


MONITORS 


Amdek 

Video  300  Amber  Composite. ..139. 00 
Commodore 

Commodore  2002 319.00 

Amiga  1080  Hi-Res  Color 299.00 

Commodore  1802 ...199.00 


^69 


Magnavox  8502 
13"Composite 

Magnavox 

8505  RGB/Composite 199.00 

8562  RGB/Composite 249.00 

NEC 

JC-1402P3A  Multl-Sync Call 

Princeton  Graphics 

MAX-12  12"  Amber  TTL 139.00 

Taxan 

Model  124  12"  Amber 119.00 

Thomson 

450  15"  132  Col.  Amber 159.00 

4120  RGB/Composite 239.00 


Anchor 

1200  Baud  Ext. 


ni9 


Anchor 

6480  C64/128  1200  Baud 119.00 

VM520  ST520/1040  1200  Baud.  129.00 
Atari 

SX212  (ST) 88.99 

Best  Products 

1200  Baud  Vi  Card  w/software....89.99 

2400  Baud  V2  Card  w/sottware..  169.00 

Commodore 

Amiga  1680-1200  BPS 169.00 

Everex 

Evercom  1200  Baud  Intemal 99.99 

Hayes 

Smartmodem  300 139.00 

Smartmodem  1200  External 289.00 

Novation 

Parrot  1200 89.99 

Practical  Peripherals 

Telecom  Package 99.00 

Supra 

MPP-1064  AD/AA  C64 69.99 

2400AT  2400  Baud  Atari 169.00 

U.S.  Robotics 

1200  Baud  External 99.99 

2400  Baud  Internal 179.00 


DISKETTES 


Maxell 

MD1-M  SS/DD  51/4" 8.49 

MD2-DM  DS/DD  5V4" 9.49 

MF1-DDM  SS/DD  3V2" 12.49 

MF2-DDM  DS/DD  3V2" 18.49 

Sony 

MD1D  SS/DD  5Vi" 6.99 

MD2D  DS/DD  SVa" 7.99 

MFD-1DD  SS/DD  3Vz" 11.99 

MFD-2DD  DS/DD  3V2" 16.99 

Hewlett-Packard  Calculators 

28C  Scientific  Pro. 199.99 

18C  Business  Consultant 139.95 

12c  Slim  Financial 74.99 


PRINTERS 


Atari 

1020  XL/XE  Plotter *31.99 

XDM121  Letter  Quality 159.00 

XMM801  XL/XE  Dot  Matrix 185.00 

XMM804ST  Dot  Matrix 179.00 

Brother 

9  pin 199.00 

9  pin 319.00 


M-1109  100  cps, 

M-1409  180  cps, 

Citizen 

MSP-15  160  Cps,  132-Column.269.00 

Premier  35  cps  Daisywheel 479.00 

C.ltoh 

315P  132  Column  Prowriter 549.00 


Epson  LX-800  t,H^e% 

150  cps  Dot  Matrix^!  19 
Epson 

LX-800  150  cps,  80<olumn 179.00 

FX-86E  240  cps,  80-column Call 

FX286E  240  cps,  132-column Call 

LQ-500  24  Wire,  80-column Call 

LQ.850  330  cps,  80-column Call 

LQ-1050  330  cps,  132-column Call 

Hewlett  Packard 

Thinkjet 379.00 

NEC 

Pinwriter  2200  24  Wire 379.00 

Pinwriter  660  24  Wire 459.00 

Pinwriter  760  24  Wire 679.00 

Okldata 

Okimate  20  Color  Printer 129.00 

ML-182  120  cps,  80-column 219.00 

ML-192-1-  200  cps,  80-column. 329.00 

ML-193-1-  200  cps,  132-column479.00 

Panasonic 

KX-1080i  144  cps,  80-column..  179.00 

KX-1091i  194  cps,  80-column..  199.00 

KX-P3131  22  cps  Daisywheel. .269. 00 

Star  MIcronlcs 

NX-1000  144  cps,  80-column. ..189. 00 

NX-1000C  144  cps,  C64  Inter.. 189.00 

NX-15  120  cps,  132-column 319.00 

Toshiba 

P-321  SL  216  cps,  24-Pin 539.00 

P-351  II  300  cps,  24-Pin 889.00 


In  the  U.S.A.  and  in  Canada 

Call  toll-free:  1-800-233-8950 

Outside  the  U.S.A.  call  717-327-9575,  Telex  5106017898,  Fax  717-327-1217 

Educational,  Governmental  and  Corporate  Organizations  call  toll-free  1-800-^21-4283 

CMO.  477  East  Third  Street,  Dept.  A2.  Williamsport,  PA  17701 

ALL  MAJOR  CREDIT  CARDS  ACCEPTED. 
POLICY:  Add  3%  (minimum  S7.00)  shipping  and  handling.  Larger  shipments  may  require  additional  charges.  Personal  and  company  checks  require  3 
weeks  to  clear.  For  faster  delivery  use  your  credit  card  or  send  cashier's  check  or  bank  money  order.  Pennsylvania  residents  add  6%  sales  tax.  All 
prices  are  U.S.A.  prices  and  are  subject  to  cliange  and  all  items  are  subject  to  availability.  Defective  software  will  be  replaced  with  the  same  item  only. 
Hardware  will  be  replaced  or  repaired  at  our  discretion  within  the  terms  and  limits  of  the  manufacturer's  warranty.  We  cannot  guarantee  compatibility. 
All  sales  are  final  and  returned  shipments  are  subject  to  a  restocking  fee. 


player  during  early  play  sessions. 

It's  important  to  know  which  alien 
form  is  a  Tribar  as  opposed  to  an  Arba- 
lest, for  example,  because  some  aliens 
provide  you  with  needed  energy  when 
destroyed,  while  others  do  not.  Because 
you  use  energy  when  destroying  aliens, 
fleeing  or  outmaneuvering  aliens  is  a 
good  strategy  at  times,  especially  if  the 
aliens  are  not  energy  providers. 

Sfarl-Up 

Booting  Thexder  on  the  G5  is  an  expe- 
rience. It  requires  that  you  use  both  the 
Thexder  disk  and  your  System  Master 
each  time  you  play,  I  can  only  hypothe- 
size that  there  is  so  much  code  on  the 
Thexder  disk  that  the  System  info 
couldn't  fit;  or  possibly  it  had  to  do  with 
licensing  agreements.  In  any  case,  it's  a 
minor  annoyance  to  have  to  go  through 
a  three-disk  swapping  procedure  to  be- 
gin play. 

Thexder  is  one  of  a  growing  num- 
ber of  games  that  allows  you  to  make  a 
back-up  copy  but  requires  that  the  orig- 
inal be  used  at  some  point  during  the 
loading  process.  Because  it  is  an  arcade 
game,  I  can't  quibble  with  this  scheme: 
It  gives  the  player  a  chance  to  protect 
his  master,  yet  it  prevents  mass  copying 
and  distribution  of  copyrighted  material. 

[Ed.  Note:  The  IBM  version  of 
Thexder  is  hard-disk  installable,  requir- 
ing the  use  of  the  master  Thexder  disk  as 
key  disk  during  boot-up.  Incidentally, 
Thexder  is,  according  to  Sierra  On-Line, 


the  first  game  to  support  IBM  PS/2's 
MCGA  color  rtiode.)  Finally,  don't  be 
alarmed  at  the  paucity  of  instructions 
that  come  with  Thexder.  At  first  glance, 
especially  after  experiencing  initial 
problems  in  playing  the  game,  I 
thought  that  what  appeared  to  be  a  lack 
of  documentation  was  a  major  problem. 
However,  it  was  patience  that  were 
lacking,  not  instructions.  The  six  panels 
of  instruction  and  the  walk-through 
map  of  the  first  several  levels  provides 
you  with  the  information  needed  to 
play  the  game;  and  comparing  it  to  the 
instructions  given  on  arcade  ma- 
chines— which  Thexder  par?  .'Is  in  all 
other  phases — the  directions  are  more 
than  adequate. 

Overall,  Thexder  jumps  into  the 
past  to  grab  a  theme  that  was  the  rage 
in  the  boom  days  of  video  arcades,  and 
it  leaps  into  the  future  with  16-bit  com- 
puter technology.  If  you  like  hot-and- 
heavy  combat  action  coupled  with 
great  graphics  and  sound,  Thexder  is 
sure  to  satisfy  you  while  giving  you 
excellent  play  value  for  your  dollar. 

Thexder 

Sierra  On-Line 

P.O.  Box  485 

Coarsegold,  CA  9i6U 

$34.95 

Amiga  version  distributed  by: 

Electronic  Arts 

1820  Gateway  Dr. 

San  Mateo,  CA  94404 

$34.95 


ProDrive  For  The  Amiga 

Scott  Thomas 


Third-party  hardware  support  for  the 
Amiga  appears  to  be  accelerating  at 
surprising  speed.  Attributable  mainly 
to  the  marketing  success  of  the  Amiga 
500,  third-party  manufacturers  in  re- 
cent months  have  come  out  with  a  pan- 
oply of  hardware  peripherals  for  the 
Commodore  Amiga.  One  of  these  third- 
party  hardware  peripherals,  the  Pro- 
Drive  from  Progressive  Peripherals  & 
Software,  is  a  good  example  of  third- 
party  support  that  benefits  Amiga  own- 
ers with  higher  quality  products  at  less 
expensive  prices. 

Like  the  Amiga  1010  3 'A -inch  ex- 
ternal floppy  drive,  the  ProDrive  draws 
its  power  from  the  computer  power  sup- 
ply. Additionally,  the  ProDrive  is  de- 
signed to  be  100-percent  compatible 
with  the  Amiga  1010  external  drive. 
Similarities  between  the  two  drives, 
however,  end  there.  The  ProDrive  is 
compact,  consuming  only  about  40  per- 
cent of  the  space  that  the  Amiga  1010 
drive  requires.  Its  dimensions  are  a  mere 
7  inches  deep  by  4V*  inches  wide  by  Vh 


inches  in  height.  Removing  the  metal 
housing  of  the  drive  revealed  the  reason 
for  its  compactness.  The  drive  is  an  NEC 
brand  internal  S'/i-inch  drive,  undoubt- 
edly developed  for  IBM  PC  clones. 

Physically  Distinguished 

Other  physical  characteristics  of  the 
ProDrive  that  distinguish  it  from  the 
Amiga  1010  drive  are  its  sturdy  metal 
housing,  spring-loaded  door  to  keep 
dust  out  of  the  drive,  and  its  three-foot 
cable  to  connect  to  the  computer.  One 
woefully  inadequate  feature  of  the 
Amiga  1010  is  its  stubby  cable.  For 
Amiga  500  owners,  the  1010  must  sit 
immediately  next  to  or  on  top  of  the 
computer  in  order  for  proper  connec- 
tion of  the  cable.  My  work  station 
would  not  accommodate  such  an  ar- 
rangement and  I  was  forced  to  buy  a 
special  extension  cable  to  connect  my 
Amiga  1010  drive.  The  ProDrive's  extra 
cable  length,  therefore,  provides 
needed  flexibility  for  your  work  space. 
In  my  examination  of  the  drive,  I 


found  the  ProDrive  to  be  truly  100  per- 
cent compatible  with  the  Amiga  1010. 
All  reads  and  writes  to  the  drive  per- 
form flawlessly,  and  all  commercial 
software,  including  many  with  copy 
protection,  ran  on  the  ProDrive  without 
a  glitch.  I  detected  no  distinguishable 
differences  in  the  speed  of  reading  and 
writing  to  disk  between  the  ProDrive 
and  the  Amiga  1010.  Its  quietness  of 
operation,  however,  was  pleasantly  no- 
ticeable in  comparison  to  the  noisy  op- 
eration of  the  1010. 


Pinned 

The  only  drawback  to  the  ProDrive  is 
the  absence  of  a  23-D-pin  drive  connec- 
tion out  of  the  drive  to  permit  daisy- 
chaining  of  additional  drives.  As  most 
Amiga  owners  are  aware,  the  operating 
system  of  the  Amiga  will  support  up  to 
four  floppy  drives,  However,  the  power 
supply  of  the  computer  will  support 
only  one  external  floppy  drive,  making 
it  impossible  to  connect  more  than  one 
Amiga  1010  drive  to  the  computer. 
That  fact  was  undoubtedly  the  consid- 
eration of  Progressive  Peripherals 
when  it  decided  to  leave  off  the  drive 
connection  on  the  ProDrive.  However, 
the  absence  of  such  connection  pre- 
vents one  from  daisy-chaining  an  Amiga 
1020  5  'A-inch  external  drive.  The  Amiga 
1020  has  its  own  po%ver  supply  and  can 
be  daisy-chained  with  an  Amiga  1010. 
The  absence  of  the  drive  connection  on 
the  ProDrive,  therefore,  is  a  significant 
consideration  for  any  Amiga  owner  who 
is  considering  obtaining  a  5  'A-inch  drive 
down  the  road. 

In  summary,  the  ProDrive  is  an 
excellent  high-quality  hardware  pe- 
ripheral for  the  Amiga.  It  is  better  built 
than  the  1010  external  drive  and  has 
significant  feature  enhancements  over 
the  Amiga  drive.  Its  compactness,  quiet 
operation,  and  sturdiness  make  it  a  very 
attractive  peripheral.  And  with  a  list 
price  $60  less  than  the  1010,  it's  very 
much  a  bargain.  Unless  you  have  or  are 
considering  the  Amiga  1020  5 '/i -inch 
drive,  I  recommend  serious  consider- 
ation of  the  ProDrive  as  an  inexpensive 
yet  higher-quality  alternative  to  the 
Amiga  1010  drive. 

ProDrive 

Progressive  Peripherals  &  Softzvare 

464  Kalamath  St. 

Denver,  CO  80204 

$239.95 


24     COMPUTEI      March  1988 


Dark  Castle 

Rhett  Anderson 

Requirements:  Amiga  (reviewed  here), 
IBM  PC  and  compatibles,  Macintosh, 
Atari  ST,  Commodore  64.  IBM  version 
works  in  CGA,  EGA,  or  Hercules  Mono- 
chrome modes,  or  in  16-color  mode  on  the 
Tandy  1000  series. 


Are  you  the  type  who  would  enter  a 
haunted  house  for  fun?  If  you  are,  Dark 
Castle  may  be  your  kind  of  game.  If 
you're  not.  Dark  Castle's  two  disks  of 
beautiful  screens,  realistic  animation, 
and  blood-curdling  digitized  stereo 
sound  may  still  be  able  to  lure  you  into 
the  danger. 

In  Dark  Castle,  your  goal  is  to  slay 
the  Black  Knight.  Of  course,  the  Knight 
knows  you're  after  him,  but  he's  not 
especially  worried — after  all,  what 
chance  do  you  stand  in  his  heavily  pro- 
tected castie?  Not  much,  as  you'll  find 
out  when  you  begin  play. 

Work  Of  Art 

Dark  Castle's  main  achievements  are  to 
be  found  in  its  brilliant  graphics,  sound, 
and  atmosphere.  Each  room  shows  lav- 
ish attention  to  detail.  In  this  review,  I'll 
focus  on  the  Amiga  version  of  the 
game — the  most  impressive — but  most 
of  the  following  comments  apply  to  the 
other  versions  as  well. 

Simply  put,  the  artwork  in  this 
game  is  beautiful.  Each  room  is  hand- 
drawn  and  is  loaded  from  disk  when 
you  enter.  The  animation  is  second  lo 
none — each  character  in  the  game  has  a 
generous  number  of  animation  frames. 

Each  room  is  populated  by  the  cas- 
tle's undesirables,  and  each  "undesir- 
able" has  its  own  digitized  sound 
effects — the  crows  caw,  the  bats  shriek, 
the  rats  squeak,  and  some  strange  little 
characters  make  faces  at  you  and  yell 
"Nya  nya  nya  nya  nya." 

Dark  Castle  has  a  distinctive  style 
that  pulls  the  animation  and  sound  into 
a  coherent  whole.  More  than  any  other 
game  available  for  the  Amiga,  this 
game  has  atmosphere  and  class.  As  you 
travel  through  the  rooms,  you  can  al- 
most feel  the  clammy  walls  and  cold 
floors.  This  is  one  of  the  programs 
you'll  use  to  show  off  your  Amiga. 

GarT\e  Play 

In  Dark  Castle,  you  progress  through 
the  castle's  rooms,  trying  to  find  the 
Black  Knight  in  order  to  slay  him.  You 
face  many  different  kinds  of  opponents, 
which,  if  you're  accurate,  can  be  dis- 
posed of  with  rocks.  To  do  this,  you  first 
point  your  arm  in  the  direction  you 
wish  to  throw,  and  then  make  the  toss. 


Dark  Castle  features  stuittiing  graphics 
R'ith  careful  attention  to  detail. 

It  doesn't  take  much  to  dispose  of  your 
character— if  you  trip  over  a  small  step 
or  fall  in  the  water,  you're  dead. 

The  most  severe  problem  with 
Dark  Castle  is  that  game  play  is  so  diffi- 
cult. Your  character  can  be  controlled 
by  either  a  joystick  or  the  combination 
of  the  mouse  and  keyboard.  After  years 
of  playing  games  with  joysticks,  1  found 
the  keyboard/mouse  duo  unfathom- 
able. Unfortunately,  the  many  actions 
that  need  to  be  performed  in  the  game 
become  hopelessly  complex  under  joy- 
stick control. 

Even  considering  the  trouble  with 
controlling  the  character,  the  game 
seems  overly  difficult.  For  over  a  week 
now  (in  Easy  mode),  I've  been  leaping 
off  a  certain  precipice,  trying  in  vain  to 
grab  hold  of  a  swinging  rope.  I've  never 
caught  it.  Frankly,  if  I  weren't  so  anx- 
ious to  see  the  flying  monkeys  and 
other  enemies  the  package  illustration 
promises,  1  would  have  given  up  sever- 
al days  ago. 

Other  Problems 

There  are  other  flaws  in  this  game 
which  will  keep  it  from  occupying  my 
list  of  favorites.  The  first  is  its  copy- 
protection scheme.  While  it's  under- 
stood that  game  producers  have  more 
to  lose  from  piracy  than  other  software 
producers  (after  all,  you  don't  need  a 
manual  to  play  most  computer  games), 
I  can't  bear  to  hear  my  disk  drive  grind- 
ing its  way  through  the  protection  se- 
quence each  time  I  want  to  play.  1 
simply  don't  trust  that  the  software  re- 
spects my  expensive  computer  equip- 
ment. In' the  case  of  Dark  Castle,  the 
protection  is  so  severe  that  the  game 
occasionally  crashes  my  computer  on 
boot-up — or  worse,  white  loading  the 
screen  for  the  next  room. 

That  brings  up  another  problem — 
the  frustrating  wait  between  levels,  as 
Dark  Castle  loads  the  graphics  and 
sound  data.  Players  with  two  disk 
drives  will  be  annoyed.  Those  with  one 
will  be  positively  aggravated.  It  would 
be  great  if  you  could  put  this  game  on 
your  hard  drive,  but  the  copy  protection 
prevents  that.  (Note:  The  IBM  version  is 


hard-disk  installable.) 

Nonetheless,  Dark  Castle  deserves 
admiration  for  its  excellent  sound  and 
graphics.  Whether  it  is  worthy  of  play  is 
another  matter.  Dark  Castle  has  shown 
us  what  a  game  on  the  Amiga  can  be. 
We  hope  that  future  games  will  com- 
bine the  excellent  presentation  of  Dark 
Castle  with  better  playability. 

Dark  Castle 

Three-Sixty  Pacific 

2105  South  Bascom 

Campbell,  CA  95008 

$39.95  IBM,  Amiga,  and  Atari  ST 

versions 

$34.95  Commodore  64  version 

Macintosh  version  available  from: 

Silicon  Beach  Software 

9770  Carroll  Center  Rd. 

Suite  ] 

San  Diego.  CA  92126 

$49.95 


Postcards 


Ervin  Bobo 

Requirements:  Apple  U  series  (reviewed 
here),  Macintosh,  Commodore  64,  IBM  PC 
and  compatiljles. 

Many  years  ago  there  was  a  fad  for 
comic  postcards.  These  cards  usually 
carried  a  message  of  wry  humor  or 
ironic  understatement,  and  were  illus- 
trated by  rather  outlandish  drawings — 
one  might  show  an  outhouse  with  a 
moon  carved  in  the  door  and  the  cap- 
tion "Wish  you  were  here,"  or  an  ear  of 
corn  as  big  as  the  truck  bed  on  which  it 
rested  and  the  caption  "You  should  see 
the  big  ones." 

Juvenile  by  today's  standards  of 
humor,  back  then  they  offered  a  quick 
and  easy  form  of  communication,  a  way 
of  letting  the  folks  back  home  know 
you  had  not  only  survived  this  far  but 
were  actually  enjoying  yourself.  The 
price  was  five  or  ten  cents,  and  postage 
was  a  one-  or  two-cent  stamp — I  told 
you  this  was  long  ago — and  everybody 
in  America  probably  received  one  at 
some  point  between  1935  and  1955. 

Lost  now  and  only  dimly  remem- 
bered, save  for  a  few  collectors,  the 
penny  stamp  and  comic  postcard  gave 
way  to  higher  postage  and  to  the  need 
for  a  flash)',  full-color  postcard  showing 
the  interior  of  Meramec  Caverns  or  the 
faces  on  Mount  Rushmore.  Lost  with  it 
was  a  piece  of  Americana. 

Recalling  Ttie  Past 

Fortunately,  someone  at  Activision  re- 
members older  and  simpler  times  and 
has  brought  these  comic  postcards  back 
(but  not  the  penny  stamp)  in  a  new 
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program  called  Postcards.  The  program 
consists  of  a  library  of  line-art  images,  a 
drawing  program  for  customizing  or 
enhancing  the  artwork,  and  a  text  pro- 
cessor for  captions.  Postcards  allows 
you  to  print  out  a  part  of  the  past  on  a 
dot-matrix  printer,  paste  it  on  postcard 
stock,  and  mail  it  to  someone  who  will 
either  appreciate  the  nostalgia  or  be 
buffaloed  into  thinking  you've  invent- 
ed a  new  art  form. 

Testing  the  Apple  version,  I  was 
pleased  to  find  that  the  setup  program 
first  asks  you  for  the  type  of  computer 
you're  using.  The  list  of  choices  in- 
cludes the  Laser  128  and  the  Franklin 
500,  making  Activision  one  of  the  first 
software  companies  to  come  to  grips 
with  the  newer  realities  of  the  Apple 
software  market.  Following  this,  you 
are  asked  for  the  number  of  disk  drives 
and  the  type  of  printer  you  are  using. 
All  this  information  is  stored  on  the 
master  disk. 

The  working  screen  is  really  two 
screens.  You  switch  between  them  by 
pressing  the  1  or  2  key.  Running  verti- 
cally along  one  edge  of  the  screen  is  a 
list  of  commands.  Each  is  as  simple  to 
implement  as  the  page  command;  Strike 
only  the  first  letter  of  the  command 
word,  and  you  are  instantly  there. 

Bathing  Beauties  On 
Ttie  Moon 

There  are  ten  full-screen  backgrounds 
from  which  to  choose  and  more  than  a 
hundred  pieces  of  clip  art,  the  latter 
divided  into  such  categories  as  People, 
Edibles,  Animals,  and  Transportation. 
During  the  heyday  of  these  cards,  a 
great  part  of  the  humor  was  in  juxtapos- 
ing subjects  or  scale.  The  Postcards  li- 
braries and  the  quick  reference  guide  to 
them  will  suggest  their  own  incongru- 
ities— bathing  beauties  on  the  moon,  a 
kangaroo  looking  at  the  Eiffel  Tower. 

Properly,  you  should  load  a  back- 
ground onto  the  palette  screen,  then 
transfer  clip  art  or  drawings  onto  it  from 
the  Clipboard  screen.  This  process  is 
made  easy  through  the  use  of  a  "rub- 
berband"  frame  that  is  invoked  when 
you  use  the  Copy  command.  Stretch  it 
around  the  clip  art  until  you've  includ- 
ed only  what  you  feel  is  necessary  and 
then  click  the  joystick  button  to  clip  it. 
Press  Esc  to  take  you  back  to  the  work- 
ing screen;  next,  switch  to  screen  2  and 
press  P  for  paste.  The  picture  reappears, 
"attached"  to  your  cursor,  and  can  be 
moved  wherever  you  wish.  Once  there, 
it  can  be  pinned  down  with  another 
click  of  the  fire  button. 

There  seems  to  be  no  limit  to  the 
number  of  elements  you  can  include  in 
this  manner,  though  you'll  be  the  best 
judge  of  how  much  is  necessary  to  ex- 
press   whatever   wacky    thought   you 


have  in  mind.  As  an  aid  to  keeping  such 
built-up  pictures  coherent,  the  Copy 
command  includes  a  Transparent 
mode,  in  which  your  background  will 
not  be  blocked  out  by  the  white  frame 
of  your  clip  art. 

The  drawing  portion  of  the  pro- 
gram is  strictly  freehand.  There  are  no 
premade  circles  or  squares  such  as  are 
found  in  stand-alone  programs,  but 
you'll  probably  find  the  drawing  pro- 
gram adequate.  While  it  will  be  possible 
for  the  more  talented  to  draw  their  own 
pictures,  the  primary  use  of  the  drawing 
program  appears  to  be  as  a  means  to 
enhance  or  personalize  the  drawings 
from  the  Postcards  library. 

Although  the  drawing  program 
can  be  called  minimal,  I  was  pleased  to 
find  a  Zoom  feature  which  allows  edit- 
ing on  a  pixel  level  and  a  Fill  command 
that  will  invoke  one  of  six  fill  patterns. 


Postcards  offers  ten  different  back- 
grounds and  more  than  a  hundred 
pieces  of  clip  art  for  creating  your  oivn 
ready-to-mail  postcards. 

Words  And  Pictures 

Completing  the  program  is  a  text  pro- 
cessor. You  can  type  your  message 
within  the  picture — which  is  framed — 
or  outside  the  frame.  Text  is  erased  by 
using  the  backspace  key,  but  that 
should  be  enough.  Remember  that  we 
are  creating  captions,  not  documents. 

Because  we  are  dealing  with  a  pic- 
ture the  size  of  a  postcard,  printing  will 
be  done  quickly,  the  drawing  is  printed 
on  standard  paper,  then  cut  out  and 
pasted  to  the  postcard  stock  included  in 
the  package.  For  those  of  us  who  can 
never  seem  to  find  the  tools  needed  to 
do  a  job,  a  glue  stick  has  also  been 
included.  After  this,  of  course,  you  ad- 
dress the  card,  affix  a  stamp,  and  mail  a 
piece  of  personalized  nostalgia  to 
someone  who  will  appreciate  it. 

In  bringing  back  an  almost  forgot- 
ten piece  of  Americana,  Activision  is  to 
be  commended.  An  outgrowth  of  the 
utility  printing  programs  that  began 
with  PrintShop,  Postcards  has  its  own 
approach,  its  own  subject,  and,  as  evi- 
denced by  the  library  of  drawings,  its 
own  sense  of  humor.  As  for  being  a 
utility,  I  think  of  it  as  more  of  a  luxury,  to 


be  savored  in  the  way  one  might  savor  a 
fine  piece  of  carnival  glass  or  a  plaster 
miniature  of  the  Empire  State  building. 

One  problem:  When  loading  a 
sheet  from  the  library,  there  is  no  warn- 
ing that  you  will  erase  whatever  else  is 
on  the  active  screen.  For  that  reason,  it 
is  important  to  develop  a  routine  for 
screen  use  and  switching.  Otherwise, 
your  carefully  crafted  picture  on  screen 
2  can  be  erased  by  accidentally  loading 
clip  art  onto  the  same  screen, 

With  that  one  exception,  1  think 
Postcards  is  well  thought  out,  well  do- 
cumented, easy  to  use,  and  that  it  will 
fill  an  empty  space  in  many  hearts. 
Postcards 
Activision 

2i50  Bayshore  Pkwy. 
Mountain  View,  CA  MQ43 
$29.95  Apple  IlGS  and  Macintosh 
S24.95  Apple  II  series,  Commodore  64, 
IBM 


Empire 

Neil  Randall 

Requirements:  Atari  ST  (reviewed  here); 
IBM  PC,  XT,  AT  or  true  compatible;  Apple 
11  series;  AtJiiga 


WARNING!  the  box  says.  This  program 
is  highly  addictive.  Considerable  other- 
wise productive  time  might  be  lost.  Play 
only  during  vacations.  Usually,  of 
course,  such  warnings  are  best  disre- 
garded. Some  games  are  addictive,  but 
few  as  addictive  as  the  packaging 
would  have  us  believe.  In  the  case  of 
Interstel's  Empire,  though,  the  warning 
may  be  worth  heeding. 

Also  on  the  box  is  a  statement  that 
Empire  is  an  updated  version  of  the 
popular  game  of  the  same  name  that 
appeared  on  mainframes  and  minicom- 
puters as  early  as  1977.  1  never  played 
Empire,  and  I'm  glad  I  didn't  know  it 
existed.  As  it  is,  I  had  enough  trouble 
just  writing  this  review.  See,  every  time 
1  sat  down  to  boot  up  my  word  proces- 
sor, the  copy  of  Empire  kept  staring  at 
me.  Day  by  day,  my  resistance 
weakened, . . . 

A  Dose  Of  Documentation 

Empire  comes  with  a  72-page  Com- 
mand Manual,  a  Command  Reference 
Card  (specific  to  your  computer),  and  a 
disk  that  is  not  copy-protected  (and  is 
therefore  copyable  to  a  hard  drive).  In 
place  of  copy-protection  the  program 
opens  with  a  Confirmation  system,  in- 
structing you  to  type  the  first  word  from 
line  X  on  page  x.  Like  most  elements  of 
the  game,  even  the  confirmation  sys- 
tem is  friendly:  Since  it  always  specifies 
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the  first  word  on  the  line,  you  need  only 
count  lines,  not  words.  Furthermore, 
the  request  contains  a  message  stating 
that  distributing  the  program  may  be 
injurious  to  your  conscience.  For  me, 
this  works  far  better  than  the  usual 
legal  warnings — I  prefer  butter  to  guns. 

The  manual  is  complete,  well- 
organized,  and  daunting.  It  opens  with 
a  memorandum  and  a  short  story,  both 
of  which  relate  the  game  (rather  weak- 
ly) to  Interstel's  StarFleet  software.  The 
manual  provides  instructions  on  back- 
ing up  the  disks  and  copying  the  pro- 
gram onto  a  hard  disk.  Next  come  24 
pages  on  how  to  load,  set  up,  and  play 
the  game,  and  this  is  followed  by  26 
pages  describing  the  individual  play 
commands.  After  an  extremely  useful 
4-page  section  on  strategy  and  hints, 
the  manual  gives  a  7- page  overview  of 
the  creation  of  worlds  using  the  game's 
Map  Generator.  Last  comes  some  pe- 
ripheral information,  including  an  in- 
teresting description  of  the 
programming  history  of  the  game. 

Any  72 -page  manual,  though,  is 
intimidating,  and  this  is  the  only  unfor- 
tunate element  of  Empire.  Like  most 
players,  I  boot  a  game  and  start  playing 
it  before  I  even  look  at  the  manual,  but  a 
manual  this  size  almost  discourages 
such  impetuosity.  In  Empire's  case,  espe- 
cially, the  intimidation  is  needless.  1  was 
able  to  play  the  game  after  only  20 
minutes  or  so  of  experimentation-and  I 
mean  really  playing  it,  not  just  mind- 
lessly moving  armies  around.  Before  my 
first  hour  was  out,  I  was  already  plan- 
ning devious  and  brilliant  strategies  for 
capturing  an  innocuous-looking  penin- 
sula from  the  green  army.  By  the  end  of 
the  second  hour  1  was  engaged  in  a  full- 
scale  war  with  that  same  army  (their 
idea  of  "innocuous"  differed  from  mine). 
Only  then  did  I  turn  to  the  manual. 

Empire  is  a  strategy  wargame,  but  it 
is  much  different  from  most  computer 
wargames.  The  premise  is  that  you 
have  been  sent  by  Star  Fleet  Command 
to  oppose  the  Krellan  conquest  of  a 
planet.  You  land  in  a  city,  and  the  rest 
of  the  map  is  black.  From  that  city  you 
begin  producing  your  war  machine, 
with  the  goal  of  recapturing  all  66  cities 
from  the  Krellans.  The  game  allows 
either  a  two-player  or  a  three-player 
version,  and  the  computer  will  handle 
as  many  or  as  few  of  the  three  com- 
mands as  you  wish.  All  three  can  be 
human  players. 

Strategy  Is  Everyttting 

What  makes  Empire  different  is  its  strict 
emphasis  on  strategy.  You  create  a  host 
of  armies,  but  their  attributes  are  identi- 
cal. So,  too,  are  the  fighters,  battleships, 
transports,  carriers,  desh-oyers,  and  sub- 
marines. In  other  words,  the  game  is  not 
designed  for  the  historical  game  buff.  Its 


purpose  is  to  let  you  fight  a  global  war 
quickly  and  easily,  demanding  only 
your  best  strategy.  It  sacrifices  small  de- 
tail for  the  sake  of  emphasizing  strategy. 
The  interface  is  extremely  well- 
designed.  You  can  execute  all  com- 
mands from  the  keyboard  or  with  a 
mouse,  or  you  can  combine  both  freely. 
When  you  capture  a  city,  an  attractive 
display  allows  you  to  set  production  for 
that  city,  and  it  even  insures  that  you 
don't  start  producing  battleships  in  a 
city  not  located  on  the  coast.  Each  city 
produces  only  one  type  of  unit  at  any 
one  time,  but  you  can  easily  change  the 
production  by  calling  up  the  production 
map,  selecting  the  city,  and  making  the 
change. 


Empire  is  an  addictive  strategy  war- 
game  (Atari  ST  version  pictured  above.) 

Moving  units  is  what  you'll  be  do- 
ing most,  and  here,  the  interface  shines. 
The  unit  to  be  moved  flashes,  and  you 
can  either  go  to  the  (GEM)  menus,  type 
a  one-letter  command  on  the  keyboard, 
or  point  with  the  mouse.  With  the 
mouse  pointer,  you  simply  go  to  the 
desired  destination  square  and  press 
the  left  button.  A  white  line  appears, 
linking  the  unit  to  the  square.  If  you 
want  that  destination,  simply  release 
the  button.  The  unit  may  take  several 
turns  to  reach  its  destination,  after 
which  it  will  start  flashing  again,  wait- 
ing for  orders. 

Worlds  To  Conquer 

Not  content  with  even  this  friendly  a 
system,  though,  Insterstel  has  provided 
more.  You  can  lump  a  bunch  of  units 
together  (Group  Survey  command)  and 
issue  them  all  the  same  order.  You  can 
put  armies  on  sentry  duty,  in  which 
case  they  won't  flash  at  all  until  you 
take  them  off  duty.  And  you  can  com- 
mand a  transport  unit  to  load  all  units 
that  come  adjacent  to  it,  without  having 
to  load  each  one  individually. 

You  can  fight  any  adjacent  enemy 
unit.  To  fight,  simply  move  the  unit  to 
the  enemy's  square.  The  battle  is  over 
when  one  unit  is  destroyed.  Extremely 
simple,  the  system  is  highly  effective. 
You  both  destroy  and  lose  many  units  in 
this  game,  especially  in  a  large-scale  war. 


Two  things  about  Empire  are  par- 
ticularly appealing.  First,  since  you 
learn  about  the  planet  only  as  you  actu- 
ally move  across  it,  the  game  contains 
the  excitement  of  exploration  (the  heart 
of  all  adventure  games).  Second,  it  truly 
rewards  strategy.  To  launch  a  full-scale 
amphibious  invasion,  for  example,  de- 
mands a  host  of  armies  and  transports, 
protection  from  enemy  fleets,  and  fight- 
ers and  ships  to  bombard  the  shore.  But 
unlike  most  games,  creating  these  units 
and  using  them  is  extremely  easy;  what's 
difficult  is  getting  everything  to  the  right 
place  Intact  and  at  the  right  time. 

Strategy  gamers  should  find  noth- 
ing to  dislike  here.  Empire  contains  one 
of  the  best  interfaces  I've  seen  on  any 
complex  game,  and  its  design  founda- 
tion is  strong.  It  contains  a  Map  Gener- 
ation system  (it  produces  random  maps 
as  well),  so  you  will  never  run  out  of 
new  worlds  to  liberate.  It  plays  as  well 
with  three  players  as  it  does  with  one, 
and  the  one-player  game  is  a  constant 
challenge.  This  is  a  superb,  addictive 
game. 

Empire 

Interstel  Corporation 

P.O.  Box  57825 

Webster,  TX  77598 

Distributed  by  Electronic  Arts 

1820  Gateway  Dr. 

San  Mateo,  CA  94404 

$49.95  • 
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Apple®  Compatible 
Complete  System 

Compufsr,  Drive,  Monitor,  Printer  i  Software 

Sale  Price 


Litt  $1318     (Add  $35,00  shippiog. 


•  Laser  12IK  Computer 

Video,  Parallel  &  Serial  Ports 
Runs  Virtually  All  of  the 
Apple  ll/llc/lle  Sohware 

•  Hi  Ret  12"  Monochrome  Monitor 


JVo  One  Sells 

This  System 

For  Less! 


Professional  IBM®  XT 
Compatible  System 

Computer,  Drlwe,  Monitor,  Printer  &  Software 

^     Sale  Price 


till  $2495     (Add  $35.00  thippine,*) 

•15  MHz  (Norton  CI  Rating) 

*  S12K  Professional  XT  Computer 

4.77/8 MHz;  Clock/Calendar; 
Parallel,  Seriol  And  Gome  Ports 

•  MS  DOS  3.2  &  G.W.  Bode  Included 
•  Hi-Rei  12"  Monochrome  Monitor 

•Genuine  IBM  8%  "  Printer  With  Interface  And  Poper^^^  ^''^f  Genuine  IBM  8'/,"  Printer  with  Interfoce  And  Paper 
•  Software;  Word  Processor,  Spreodsheet  &  Data  Entr^^<^|JJ,1^'"^  Software:  Word  Processor,  Spreadsheet  &  Date  Base 

Appl.®  il  Ih*  r*gl<t*rMd  lflKl.n«rk  ol  Appl<  Compul.n  Inc.  ^Jr^AvillablC  J;^  IBM®  It  th«  r>slll>r«t  Imjvnaifc  ol  Intarnollscnl  tv(ln<»  Uocfilnx.  Inc. 


No  One  Sells 

This  System 

For  Less! 


Commodore®  64c 
Complete  System 

Computer,  Drive,  Mmltor,  Printer  i  Software 

Sole  Price        ^'"^ 
$4IIK95 


395 


Lilt  $1045     [Add  $35.00  ihipping.') 

•  Commodore  C-Mc  Computer 

•  Ecelerator  Plus  Disk  Drive 

•  HI  Res  12"  Monochrome  Monitor 

With  Connecting  Cobles 

•Grniulne  IBM  l%"  Printer 

With  Interface  And  Paper 

•  GiOS  Software:  Word  Processor  And  Drawing  Program 

Comnxidcx*®  It  rh*  rsglilvnd  Irodvmork  of  Cofnmodor*  BuiJnMi  Mochlrw  Inc. 


JVo  One  Sells 

This  System 

For  Less! 


Svper  Turbo  IBM®  XT 
Compatible  System 

Computer,  Drive,  Monitor,  Printer  i  Software 

S   Sale  Price 

$59993 

Litt$24TS     (Add$3S.0Oihipping.'| 


JVo  One  Sells 

This  System 

For  Less! 


•  10  MHz  /  512K  Super  Turbo 
IBM®  XT  Compatible  Computer 
Video,  Parallel,  And  Seriol 
Cords  Included 

*  MS  DOS  3.2  &  G.W.  Basic  Included 

•  Hl-Ret  12"  Monochrome  Monitor 

•  Genuine  IBM  I'/i "  Printer  with  Interfoce  And  Paper 

•  Software:  Word  Processor,  Spreadsheet  &  Data  Base 

ISM®  Il  lh»  rsglxcrcd  Irsdxnorti  of  Intcfmllonal  BinlnMi  MoctilnM,  Inc. 


15  Pay  Hom»  Trial  •  90  Pqy  Immodlate  Replacoment  Policy 

C^^fSA PUTER     DIRE CT     l!^!^ ,r?*^"  •«  S-l »  -k.  1»,.  M  <^d«  mu»  b,  m  U.S.  DoB^.  W,  M^  «,  ^  pomu  a  U.  U.S.,  CAMADA,  PIJEIITO  mCO.  A  AJ-O-FTO. 

Call  (31  Zl  M2-  S4)S0  To  Ordar  I  '  "■«*»'''«  [»l™«>«  meUiod  (BduJlnt  •«  J  Itttxtl^  ai=  mol-  a  s*,rticMi  copy  omo  or  Die 

'  '  ■"*»    iMW.wwu         o«™i.dklto«>pri»Jrtniu,lbea.(»itol-iih[l«ortw.or.lihlallil.„o(d.lcori«»Th.«  vie*  MASTMCAKO  CO.D. 


COAARUTER   DIRECT 

Is  1st  In  PRICE,  SUPPORT,  &  GUARAHnE! 

WE  LOVE  OUR  CUSTOIVIERSl        [^g* Upir» »^i-m | 


Genuine  IBM®  Printer 

ZV2"  Letter  Size  •  80  Column 
Limited  Quantities 


No  One  Sells 

This  Printer 

For  Less! 


lat  Conw 
1«t  S*rv« 


Sale 

(Add  $7.50  shipping.*) 


$40 


List  $199 


•  Unbelievable  Low  Price  *  Underline 

•  Advanced  Dot  Matrix  -  Heat  Transfer  •  Enlarged 

•  Upper  &  Lov/er  Case  (With  True  Lower  Descenders] 

•  Graphics  With  Commodore,  Apple  &  Atari  Interfaces 

•  Ready  to  Hook  Up  To  Serial  Port  Of  IBM®  PCjr 

•  Low  Cost  Adapters  For  IBM®,  Apple,  Commodore, 
Laser,  &  Atari  Computers     


22  CPS  Daisy  Wlieei 

13"  Daisy  Wlieel  Printer  With 
True  Letter  Quality 


No  One  Sells 

This  Printer 

For  Less! 


Typewriter 
Quality 


Sale 

(Add  $10.00  shipping 


$00 

mo.*l     ^^        J^ 


List  $499 


•  Daisy  Wheel  Printing 
•22  CPS,  AAA  Text 

•  13"  Wide  Carriage 

•  Both  Daisy  Print  Wheel  &  Ribbons  Compatible 
with  Diablo^**  &  Qume® 

•  Single  Sheet  or  Continuous  Feed 

•  Low  Cost  Adopters  Available 


Super  Hi-Speed  Printer 

200  CPS  star  Micronics  LV-2010 
With  Crisp  Near  Letter  Quality 


No  One  Sells 

This  Printer 

For  Less! 


Sole  $  I  0995 

(Add  $10.00  shippino.*)     B       ^T     ^T    List  $499 


(Add  $10.00  shipping.*) 

•  200  CPS  Draft  -  45  CPS  Near  Letter  Quality 

•  Seriol  Impact  Dot  Matrix 

•  IBM  Compatible  •  Continous  Underline 

•  Near  Letter  Quality  Mode 

•  Ultra  High  Resolution  Bit  Imoge  Graphics 

•  Pull  Tractor  &  Automatic  Single  Sheet  Loading 

•  Standard  Serial  &  Centronics  Parallel  Ports 


•  True  Letter  Quolity 
•  Below  Wholesale  Cost 


MH Hi  Hi-Speed  Printer 

300  CPS  Draft  •  50  CPS  NLQ 
With  Color  Printing  Capabilities 


No  One  Sells 

This  Printer 

For  Less! 


Color 

Printing 

CapabllitlM 


Sale 

(Add  $10.00  shipping 


$299 


95 

List  $499 


•  300  CPS  Draft  -  50  CPS  Near  Letter  Quality 

•  Front  Panel  Margin  Setting 

•  Download  Character  Setting        *  Epson/IBM  AAodes 

•  Variety  Of  Characters  &  Graphics         •  Bottom  Feed 

•  Parallel  &  Serial  Interface  Ports  •  lOK  Buffer 

•  Auto  Paper  Load  &  Ejection 

•  Optional  7-Color  Printing  Kit Sale  »W.W 


15  Dqy  Homo  Trial  •  90  Pqy  lmtii«dioto  Roplctc^nnont  Policy 


Call 


(3121382-5050     ^ 


We  £/Ove  Our  CustotnersI 


Mail 


COMPUTER  DIRECT 

22292  N.  Pepper  Road 
Barrington,  IL.  6001 0 


Casino  Blackjack 


John  Homilton 


Win  your  ticket  home  or  lose  your 
shirt  in  this  accurate  simulation  of  the 
most  popular  Las  Vegas  card  game. 
Originally  written  for  the  Commo- 
dore 64,  we've  included  versions  for 
the  Atari  eight-bit  computers,  Apple 
11  series,  IBM  PC/PCjr  and  compati- 
bles, and  the  Amiga.  The  PC  version 
requires  BASICA  or  GW-BASIC  or 
Cartridge  BASIC  for  the  PCjr.  The 
Apple  U  version  works  on  any  Apple 
ll-series  computer  under  either  BOS 
3.3  or  ProDOS.  The  Amiga  version 
requires  512K  of  RAM. 


"Casino  Blackjack"  is  real  blackjack, 
played  the  same  way  it's  played  in 
the  best  Las  Vegas  casinos.  Starting 
with  a  bankroll  of  $100,  you  play 
against  an  intelligent  computer 
dealer.  Just  like  in  the  casinos,  you 
can  "split"  your  hand,  double 
down,  or  buy  insurance. 

The  original  version  of  Casino 
Blackjack  was  written  on  the  Com- 
modore 64.  We've  included  transla- 
tions for  the  Atari  400,  800,  XL  and 
XE,  Amiga,  Apple  II  series,  and  IBM 
PC/PCjr  and  compatibles.  Type  in 
the  version  for  your  computer  and 
save  a  copy;  then,  run  the  program. 
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In  The  Cards 

The  rules  for  Casino  Blackjack  are 
simple  to  learn.  The  object  of  the 
game  is  to  get  more  points  than  the 
dealer — without  exceeding  21 
points.  An  Ace  can  be  counted  as 
either  1  point  or  11  points.  Jacks, 
Queens,  and  Kings  are  all  worth  10 
points.  All  other  cards  count  as 
their  face  value. 

Before  each  hand,  you  decide 
how  much  of  your  bankroll  you 
want  to  bet.  Next,  four  cards  are 
dealt — two  to  you,  and  two  to  the 
computer  dealer.  The  dealer's  bot- 
tom card  is  face  down  and  his  top 
card  is  face  up,  so  you  can  only 
guess  at  the  total  number  of  points 
he  has.  Both  your  cards  are  dealt 
face  up. 

If  you've  been  dealt  a  "black- 
jack" (21  points),  you  automatically 
win  IVi  times  your  bet,  unless  the 
dealer  was  also  dealt  a  blackjack,  in 
which  case  no  money  exchanges 
hands. 

After  you've  taken  a  look  at 
your  cards,  decide  whether  you 
want  to  take  a  hit  (take  another 
card)  or  stand  with  the  cards  you 
have.  If  you  take  a  hit  and  exceed 
21  points,  you  have  gone  "bust" 
(lost  the  hand).  If  you  take  a  card 
and  still  have  less  than  21  points. 


"Casino  Blackjack"  for  the  64 — so  real- 
istic you'll  think  you're  in  Las  Vegas. 


The  Apple  11  version  of  "Casino  Black- 
jack" features  custom-designed  cards. 

you're  free  to  take  another  hit  if  you 
like.  This  process  continues  until 
you  stand  or  bust. 

If  you  stand,  the  dealer  may 
deal   himself  a   card.   The   dealer 


"Casino  Blackjack"  for  the  Atari  400, 

800,  XL,  and  XE. 

takes  a  hit  if  he  has  16  or  less 
points.  He  stands  on  17  or  more.  If 
the  dealer  doesn't  go  bust,  the  cards 
are  inspected  to  see  who  came  clos- 
est to  21.  A  tie  is  known  as  a 
"push."  In  the  case  of  a  push,  no 
money  is  lost,  otherwise,  the  win- 
ner takes  the  money. 

Special  Plays 

If  the  dealer's  top  card  is  an  Ace, 
you  may  elect  to  insure  yourself 
against  the  dealer  having  blackjack. 
You  pay  half  your  original  bet  for 
insurance.  If  the  dealer  does  have 
blackjack,  you  keep  your  bet.  You 
lose  the  insurance  money,  whether 
the  dealer  has  blackjack  or  not. 

If  you're  dealt  a  total  of  10  or 
11  points,  you  may  double  your 
bet.  This  is  known  as  "doubling 
down."  If  you  choose  to  double 
down,  you're  dealt  one  more  card 
and  then  you  automatically  stand. 
If  you  think  the  dealer  will  win  the 
hand,  you  may  choose  to  "surren- 
der" instead.  Surrendering  costs 
half  your  bet. 

If  you're  dealt  two  cards  of  the 
same  denomination,  you  may  elect 
to  "split"  your  hand.  When  you 
split,  you  double  your  original  bet 
and  play  the  two  cards  as  two  sepa- 
rate hands,  one  after  the  other.  Each 
hand  has  a  chance  to  beat  the  dealer. 

Commodore  64  Version 

Two  programs  make  up  the  64  ver- 
sion of  Casino  Blackjack — a  BASIC 
program  and  a  machine  language 
program.  Type  in  Program  1  (the 
BASIC  program)  and  save  it  to  disk. 
Do  not  run  it  yet — it  attempts  to 
load  Program  2  when  it  runs. 

Program  2  (the  machine  lan- 
guage program)  must  be  entered 
with  the  "MLX"  machine  language 
entry  program  found  elsewhere  in 
this  issue.  Here  are  the  addresses 
you  need  to  type  in  the  program 


The  IBM  PC  and  compatible  version  of 
"Casino  Blackjack." 

with  MLX: 

starting  Address:    COOO 
Ending  Address:     C247 

After  you've  typed  in  all  the  data 
from  Program  2,  be  sure  to  save  a 
copy  as  BLACKJACK.  OBJ  before 
you  leave  MLX. 

Appie  II  Version 

The  Apple  version  of  Casino  Black- 
jack is  made  up  of  two  programs. 
Program  3  is  the  BASIC  portion. 
Type  it  in  and  save  it  to  disk.  Do  not 
run  the  program  until  you've  en- 
tered and  saved  Program  4 — it  at- 
tempts to  load  the  machine 
language  program  when  it's  run. 

Program  4  is  written  in  ma- 
chine language.  It's  the  same  ML 
program  used  for  "Canfield"  in 
January  1988.  If  you've  already 
typed  in  CANFIELD. ML,  you  can 
copy  it  to  the  same  disk  you  saved 
Program  3  to. 

If  you  haven't  typed  in  CAN- 
FIELD.ML,  type  in  Program  4  using 
the  "Apple  MLX"  machine  lan- 
guage entry  program.  When 
prompted  for  starting  and  ending 
addresses,  respond  with  the  follow- 
ing values: 

starting  Address:    8000 
Ending  Address:     86A7 

Be  sure  to  save  a  copy  of  the  pro- 
gram as  "CANFIELD.ML"  after 
you've  finished  typing  in  the  data. 

Atari  400,  800,  XL,  And 
XE  Version 

On  the  Atari,  Casino  Blackjack  is 
written  entirely  in  BASIC.  Type  in 
Program  5  and  save  a  copy  before 
you  run  the  program. 

IBM  PC/PCjr 
And  Compatibles 

Casino  Blackjack  runs  under  both 
BASICA  and  GW-BASIC  on  both 
color  and  monochrome  monitors. 


"Casino  Blackjack"  for  Amiga. 


Type  in  Program  6  and  save  a  copy 
before  you  run  the  program. 

Amiga 

The  Amiga  version  of  Casino  Black- 
jack is  written  in  Amiga  Basic  and 
requires  512K  of  memory,  Type  in 
Program  7  and  save  a  copy  to  disk 
before  running  the  program. 

For  instructions  on  entering  these  programs, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Pfograms"  elsewhere  in  this  issue. 

Program  I:  Commodore  64 
Casino  Blackjacic— BASiC 

HE    10    REM    COPYRIGHT    1988    COMPU 

TEI     PUBLICATIONS,     INC.     - 
ALL    RIGHTS    RESERVED 
MH    20    PRINT"  [CLRH2    SPACESjCOP 

YRIGHT    1988   COMPUTE i    PUB 

L.,     INC." 
CA    30    PRINTTAB(11)"ALL    RIGHTS 

(SPACE) RESERVED" 
BH    40    IFA=0THENA=l!LOAD"BIACKJ 

ACK.0BJ",8,1 
BX    50    SYS49152:POKES3272, 21 
GK    60   X=RND(-TI):CLR:DIMCH(13, 

4):POKE532B0,5:POKE53281 

,5:POKE532  65,91:POKE5328 

3,1 
JK    70    PRINT" [CLRl "TAB(15)" 

(11  down)(blk)blackjack" 
: foru=1to1000 : next 

PS    80  ,SIS (1  )  =  "ZCtDOWN}(2    LEFT) 
£]":SI?(3)="TrtD0WN! 
(2    LEFT}£]":SI5(2)="S% 
(DOWN)  (2    LEFT)  6. '  " 
RR    90    SI?(4)="Z[lDOWN}{2    LEFT) 
■«#":  PRINT"  {CLR3  ";V=0:H=0 
sTY=4:P0KE532  72,2  9:F0RB= 
1TO4:FORC=0TO11 
PJ    100   A=C:A1=B:GOSUB1070:H=H+ 
3 :HEXTC : V=V+6 : H=0 : NEXTB 
:H=14sV=3:A=12!Al=3 
BS    110   GOSUB1070:H=H+6:V=V+6:A 
1=1:GOSUB1070:H=H-6:V=V 
+6!Al=4:GOSUB10  70!H=H-6 
MH    120   V=V-6tAl=2:GOSUB10  70:H= 
H+€:GOSUB 1110:00=100 1  HA 
=0 
GX    130   GETA$:IFA$=""THEN130 
PD    140    IFDO<1THEN1320 
HR    150    HA=HA+l:POKE53  2  72,21 
GA   160    flM?  =  "":  PRINT"  (CLRKBLK) 
YOU   WILL   START    HAND" HA" 
(LEFT) .":SYS4915B,0,6 
SG    170    PRINT" RETURN   ALONE    WILL 
DISPLAY    PREVIOUS    HAND" 
: PRINT" (down}-   Q    -   TO   Q 
UIT" 
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Since  1981 


Lyco  Computer 

Marketing  &  Consultants 


Order  processed  within  24  hours. 


CHIP 

Color  Special 

Popular 


•  100%  IBM  PC 
compatible 

•  New  4.77-8 
Mhz  speed 


$699 


95 


(Green,  antber 
4  miof  monitors  avgiiaWe) 


BLUE  CHIP  PC 

PERSONAL 
COMPUTER 


•  4.77  Mhz 
Speed 

•  Dual  (loppy 

•  Green  monitor 
Included 


$579 


128  D  System 


95 


$439 

Commodore 
1280  Plus 
Thomson  4120 
Monitor 
S629,95 


AATARI 
$889'' 

1040  ST 
Color  System 


PC 

COMPATIBLE 

HARDWARE 

PC5V4  Drive  $119 

MS  DOS  +  Basic  Soft S59 

BCM  12G  Gr.  Monitor S75 

BCM  12A  Am,  Monitor $79 

BCM  14C  GoiOf  RGB  Monilw $239 

BCC  CG  Cofof  Card  $94.99 

Zuckertward  „  SCALL 

lomege  Bamoulii  SCALL 

Hercuies  SCALL 

AST SCALL 


95 


HABD 
DRIVES 


(^Seagate 

20m9gl<it  S259.95* 

30  meg  l<it  S299.9S* 

40  meg  l<it  $465.95- 

'Drives  ineiudo  oontroiiar 

40  meg  w/o  controiler  S415.9S 

COMMODORE 

HARDWARE 

1541  C  Disl<  Drive $175.95 

1571  Disit  Drive $215.95 

1581  Disk  Drive $189.95 

Indus  GT  C-64  Drive S169.95 

ie02C  Monitor $189.95 

64  C  Computer S169.95 

128D  CompulBr/Driva  $439.95 

C-1351  Mouse $32.95 

1700  RAM  $109.95 

C-1750  RAM  $CALL 

1764  RAM  C64  SI  17.95 

1084  Monilor  S239.9S 

128  Computer  $229.95 


CHIP 

Popular 

•  100%  IBM  PC 
compatible 

•  New  4.77-8  Mhz 


speed  I 


$469 


95 


{Green,  Amber 

&  color  monitors 

available) 


®  BLUE  CHIP 

286  AT 
^se«\^   $989 


00 


COMMODORE  64c 

Computer 


AATARI—  AATARI 


520  ST  FM  Mono $499.95 

520  ST  FM  Cotor  $799.95 

1040  ST  Mono  $779.95 

1040  ST  Color sea9,9s 

130XE  CompulBr S13S.9S 

SX551  Drive  SCALL 

SF  314  Disk  Drive S199.9S 

Indus  QT  Atari  Drive  SI  75.95 

SHD  204  20  MEG  Drive  SS59.95 

XM301  Modem $42,95 

SX212  Modem  589.95 

GTS  100  {3.S*  OSDO  ST) $195.95 


520  ST-FM 

Monochrome 

System 


Note:  Please  order  early  —  further  price  increases  by  Atari  possible! 

1-800-233-8760 


Iritemal 

drive 
included 


Price  Guarantee 

Since  1981,  we  have  led  the  industry  by 
continuing  to  offer  tlie  lowest  national 

prices  wfiile  providing  quality  service.  Many  ^ 

companies  hiave  come  and  gone  trying  to  x 

imitate  our  quality  and  service.  If  by  some  / 

oversigtit  we  do  not  fiave  the  lowest  prices  y 

advertised  on  the  products  you  desire,  & 

then  we  would  appreciate  ttie  opportunity  £ 

to  rectify  this  oversight.  ? 


New  1 091  i  Model  II 


$185 


Panasonic 

95      10911  Model  11 


Monitors 


Modems 


Thomson: 

230  Amber  TTUIT S79.95 

450  Amber  TTU IS- S119.95 

4150  CGA  S199.95 

4160  CGA S259.95 

4460  EGA $319.95 

4375  UltraScan  S459.95 

GB  100  EGA  Card  5129.95 

GB  200  Super  Card  S219.95 


BluB  Chip: 

BOW  12*  Green  TTL S75 

BCW  IZ- Amber  TTL S79 

BCM  14-  Color  5239 

NEC: 

Mullisync  II  S559 

Save  $100  over  NEC  Multisync 

wrtti  Thomson  4375  UltraScan 

$459.95 


THOMSON  O  TzTb':.  $69 95 

il19n  Monitnr  12001  pc  Card  55995 

m^U    IVIOnilOr  izoonc  Modem  Sa9.95 

2400 S179.95 

24001  PC  Ca/d  S169.95 

Hayas: 

kQC  Smanmodem  300 5149.95 

'         Smanmodem  12O0 S2B5.95 

Smanmodem  2400 $425.95 


14"  RGBI.video 
composite  analog 


•  Compatible  with  IBM 
and  Commodore 


RGB  data  cable 
included 


$199< 


.IL 


New  for  '88 


ICM 


Great  Performance 
Great  Price 


llcr«ni<  I  ■  mc 


SP  180Ai 


NX-1000 


•  1 00  cps  draft 

•  20  cps  NLQ 


$129 


95 


PRINTERS 


SEIKOSHA 

SP  180Ai  5129,95 

SP  laOVC  5129.95 

SP  lOOOVC  5139.95 

SP  1200VC  S15S.95 

SP  1200Ai  5165.95 

SP  1200AS  RS232  5165.95 

SL  SOAi 5299.95 

MPlSOOAi  5269.95 

MPSSOOAi  5375.95 

MPS420AI  5879.95 

SP  Series  RibSon 57.95 

SK3000  Ai  5349.95 

SK3005  Ai  $429.95 

800  CPS  SCALL! 

BROTHER 

M1109  5195 

M1409  5299 

M1509  5365 

M1709  5475 

Twinwiiter  6  Dot  &  Daisy  5899 

M1724L  5599 

HR20  5339 

HR40  S569 

HR60  $709.95 


.IL 


NL-10  w/0  Cart SS69.95 

NX-iooo sies.95 

NX-IOOOC 5175.95 

NX-1000  Color  5225.95 

NX-IOOOC  Color S229-95 

NX-15  -.  S295-95 

ND-10  S265.95 

ND-15  $379.95 

NR-10  S309 

NR-IS  $425.95 

NB-15  24  Pin , 5699.95 

NB24-10  24  Pin  S425.95 

NB24-15  24  Pin  $559.95 

#CITIZEN 

120  0 5149.95 

180  0 5169.95 

MSP-10  5259.95 

MSP-40  52B9.95 

MSP-15   5324.95 

MSP-50   5389.95 

MSP-45   $425.95 

MSP-55   $489.95 

Premiere  35 $464.95 

Tribute  224 $624,95 


EPSON 

LX800 5175.95 

FXB6E  $289.95 

FX286E  $429.95 

EXeOO $374.95 

EX1000 $499.95 

LQ500 SCALL 

LQ800 5369.95 

LQ1000 $549.95 

LQ2500 $849.95 

QQ3500 SLOW 

LQ850 $499.95 

LQ1050 $679.95 

OI<imate  20 $119 

Okimate  20  w/can 5179.95 

120 S189.9S 

160 $219.95 

182 S199.9S 

192*  $309.95 

193  -r   $449.95 

292  w/interface „  S449.9S 

293  w/intertace 5565,95 

294  w/intertace 5819.95 

393 5955.95 


Panasonic 

loaoi  Model  II  $165.95 

10911  Model  II   $185.95 

10921 $295.95 

1592 $399.95 

1595 $449,95 

3131  5269.95 

3151  5419.95 

KXP  4450  Laser 5CALL 

1524  24  Pin 5559.95 

Fax  Partner  5589.95 

Toshiba 

321SL S4S9 

341  SL $659 

P351  Model  II. $899 

DIABLO 

D25 $498.95 

635 $779.95 


Join  the  thousands  who  shop  Lyco  and  Save! 


We  stock  Intertaelng  tor  Atari.  Commodore,  Apple  arid  IBM. 


SOFTWARE 


rARFSr  M  totmsiaoKi 


BEST  SELECTION 


"^am^ 


I^C 


$25.95 

$25.95 

$25.95 

!S  $25.95 

$25.95 


S25.95 
SI  9.95 
528.95 
$22.95 
S11.95 
S22.9S 
S11.9S 
$11.95 
$14.95 

S18.9S 
$18.95 

$19.95 
$19.95 
$22.95 
$15.95 
$25.95 
$19.95 
$16.95 
SI  9.95 
$19.95 
$19.95 

$31.95 
$31-95 

$20.95 
SI  7.95 
S239S 
$29.95 
$29.95 
$35.95 
$39.95 
$29.95 


EJactronIc  Arts: 

Bard's  Tale  $25.95 

Legacy  ot  The 

Ancienis $20.95 

Marble  Madness $20.95 

Siartleet  I  $25.95 

Yeager's  AFT  $22.95 

Epim: 

Destroyer S22.95 

Fasttoad $19.95 

Sub  Banle $22.95 

Winiar  Games  $22.95 

California  Games $22.95 

Grapfiics  Scrapbook  ....  $11.95 
Sir.  Sports  Basketball ,  S22.95 

Summer  Games  II $22.95 

WorkJ  Games  $22.95 

Flrsbird: 

Elite $18.95 

Golden  Path  S22.95 

Guild  or  TWeves S22.95 

Pawn  S22.95 

Tracker  $22.95 

Starglider  $18.95 

Sentry  S22.95 

Micro  league; 

Microteag.  Baseball $22.95 

General  Manager  S16-95 

Slal  Disk  $13,95 

Microleag.  Wrestling  ....  S16.95 

■87  Team  Disk 511.95 

MIcroprose: 

Arrtjorne  Ranger  ,.„..,..-  $22.95 

F-IS  Strike  Eagle  S19.95 

Gunship $19.95 

Kennedy  Approach $13.95 

Silent  Sen/ice  $19.95 

Solo  Flight  $13.95 

Top  Gunnef $13.95 

Pirates  $22.95 

Slealth  Fighter  ,. $22,95 

Origin: 

Auloduel  $28,95 

Ultima  III $22.95 

Ultima  IV $33.95 

Moebius $22.95 

Saftwara  Simulations: 

Pure  Stat  Baseball  $22.95 

Football $17.95 

Pure  Stal  College 

easkelball $22.95 

Springboard: 

i^ewsroom $29.95 

Certilioate  Maker $29.95 

Clip  Art  Vol.  #1  $17.95 

Clip  Art  Vol  #2 $23,95 

Clip  Art  Vol,  *3  $17.95 

Graphics  Expander  S21.95 

Strategic  Slmuiatlons: 

Gettysburg $33.95 

Phantasle  II  $22.95 

PhanSasie  III  $22.95 

Ring  ol  Zaifin $22.95 

Boad  War  2000 $22.95 

Shard  ot  Spring  522.95 

Wizards  Crown S22.95 

Waigame  Constr $16.95 

Battlecruiser $33.95 

Battle  ol  Antetiem S28.95 

Eternal  Dagger $22.95 

Shitoh $22.95 

Subiogic: 

Right  Simulator  II $31.49 

Jet  Simulator S24.95 

Nighl  Mission  Pinball  ...  SI 8.96 
Scenery  Disk  1-6 $12.95 


Tlmeworits: 

Partner  C64 $24.95 

Partner  128  ,.  $39.95 

Swift  Cat  128  $29,95 

Wordwriter  128 $29,95 

Unison  Worid: 

AnGaileiy  1  or  2  $14.95 

Print  Masler $17,95 


Hoppte 


Acc«h; 

Triple  Pack  $11,95 

WorW  Class  Leader 

Board „„  $23.95 

Famous  Courses  ..„..,„  S1 1,95 
Actlvlslon: 

ZorKTritogy  $39,95 

Game  Maker  $29, 9S 

Leather  Goddesses $22,95 

Term  Paiser  $29.95 

Champ,  Baseball $22.95 

Champ.  Basketball $22.95 

GFL  Foolt>all  $22.95 

Top  Fuel  Eliminator $19,95 

BrodertMrnd: 

Airheart $22.95 

Print  Shop  $26,95 

Print  Shop  Comp $22,95 

Carmen  S,  Diego  (USA)„$22,95 

On  Balance  $56,95 

Bank  St  Wnler  +  $44.95 

Eiectrpnlc  Arts; 

Bards  Tale  II $32.95 

Legacy  ol  the 

Ancients $25.95 

Epyx: 

Desuoyer $22.95 

Movie  Monster $11.95 

St.  Sports  Basketball ...  $22.95 
Sub  Battle  Simulator  ...  $22.95 

Winter  Games  $22,95 

World  Games  $22,95 

Wrestling  $22,95 

Firebird: 

i:;olossus  IV  Ctiess $22,95 

Eliie $19,95 

The  Pawn $25,95 

Starglkler $25,95 

Micro  league: 

Microleag,  Baseball $22,95 

General  Manager  $16.95 

Stat  Disk  $11.95 

86  Team  Disk $1 1.95 

Mlcroprose: 

Crusade  in  Europe $22.95 

Decision  in  Desert $22,95 

F-15  Strike  Eagle  $19.95 

Silent  Service  $19.95 

Strategic  Simulations: 

Baltlecajiset  $33.95 

Colonial  Conquest $22.95 

Gettysburg $33.95 

Pfianlasie  III  $22.95 

Realms  ol  Daritness  ....  $22.95 

Shard  of  Spring $22.95 

Wizards  Crown $22.95 

Eternal  Dagger $22.95 

Shiloh SNEW 

Sublogic: 

FKghl  Simulator  II  530.95 

Je!  Simulaior  S24  95 

Night  Mission  Pinball ...  $21,95 

Scenery  #l-#  ea 512,95 

Unison  Worid: 

Art  Gallery  2  $14,95 

Print  Master $19,95 


Acceis: 

Leader  Board  $22,95 

Tournament  #1  $11,95 

Airtlvlelon; 

Champ,  Basketball $25,95 

Championship  Golf $22,95 

QFL  Foolball   $25,95 

Music  Studio $27,95 

Electronic  Arts: 

Deluxe  Print  II  $48,95 

RocMord  $25,95 

Empire $31.95 

Scrabble  $25,95 

Epy»: 

ApshajTrikigy  $11.95 

Rogue $22,95 

Winter  Games  $22,95 

Worid  Games  $22,95 

Firebird: 

Guild  ol  Thieves $25.95 

Pawn  $25,95 

Slarglider $25.95 

Micropross: 

Silent  Seivice  $22,95 

Subiogic; 

Flight  Simulator  II  531,49 

Jel  Simulaior  $31,49 

Scenery  Dls*  $CA1J. 

Unlmn  Worid: 

Print  Master $19:95 

Art  Gallery  1  or  2  514,95 

Fonts  &  Borders 517,95 


Access: 

Wld.  CI,  Leader  Board  .  $27,95 

10th  Frame $27.95 

ActivlBlon: 

Champ,  Baseball $22,95 

Ctiamp,  Basketball $22.95 

Zork  Trilogy $39.95 

l-eather  Goddesses $22.95 

Beyond  Zork $27.95 

Broderbund: 

Andent  Art  ol  War S25.95 

Print  Shop  $32.95 

Print  Shop  Compan $31.95 

Graphic  Lib.  I  or  II $19,95 

Karateka  $19,95 

Toy  Shop $22,95 

Bank  Si,  Writer  +  S44.95 

AncienI  Art  of  War 

al  Sea $25,95 

Eiectronlc  Arts: 

Pegasus  $25,95 

Weaver  Baseball $25,95 

RocWord  .,  $25,95 

Epyx: 

ApshaiTritogy  $11,95 

Create  A  Calendar  $15.95 

Destroyer S22.9S 

Movie  Monster $11.95 

Rogue $16-9S 

St,  Sports  Basketball ,..  $22,95 
Sub  Battle  Simulator  ,„  $22.95 

Winter  Games  S22.95 

Wo(W  Games  $22.95 

Firebird: 

Starglider $25,95 

Guild  o(  Thieves $25.95 

MIcroleague: 

Mksoleag,  Baseball $22,95 

General  Manager  ....„„  $16,95 

Stat  Disk $13,95 

Mlcroprose: 

Conflid  in  Violnam  S22.95 

Ciusade  in  Europe $22,95 


Decision  In  Desert $22,95 

F.1S  Strike  Eagle  S22.9S 

Silent  Service $22.95 

Gunship $27.95 

Origin: 

Ultima  I  $22,95 

Ultima  III S22.95 

Ultima  IV $33,95 

Moebius 533,95 

Ogre  $16,95 

Strategic  Simulations: 

Road  War  2000  $22,95 

Gettysburg $33,95 

Wzards  Crovm $22,95 

Sublogic: 

Jet  Simulator S31,49 

Scenery  Japan  $17.95 

Scenery  San  Fran $17.95 

Scenery  #l-iti6  $64.95 

Flight  Simulator  $34.95 

Tlmeworlw: 

Swiftcalc  539.95 

Wordwriter $34.95 

Unison  World: 

Art  Gallery  2  $14.95 

Nevre  Master  $49.95 

Print  Masler  (  +  ) $29.95 

Fonts  &  BonJers $17.95 


Diskettes 


5-1/4 

Maxell: 

SSOD  $7.95 

DSDD  $8.95 

Bonus: 

SSOO $5.95 

DSDD  $6.95 

SKC: 

DSDD  $6.95 

DSHD  $13.95 

Generic  DSDD  $4,95 

Vertutlm: 

SSDD   $8,99 

DSDD  511,50 

3.5 

Maxell: 

SSDD  $11,50 

DSDD  $17,95 

Verbatim: 

SSDD   $14,50 

DSDD  $20.95 

SKC: 

SSDD  $9.95 

DSDD  $13.99 

Generic  SSDD $9.75 

Generic  DSDD  $12.95 


Joysticks 


Tac3  $9,95 

Tac2 $10.95 

TacS  $12.95 

Tac  1  +  IBM'AP S26.95 

Economy  $5,95 

Slik  Stick $6,95 

Black  Max $10.95 

Boss  $11,99 

3-Way $19,99 

Bathandte  516,75 

Winner  909  $24,95 

Wico  IBM/AP  S29,95 

Lipstick  Plus  514.95 

Kraft  KC  III  Ap/PC 516,95 


)ping  on  Prepaid  cash  orders  over  $50  in  the  Continental  US. 


Lyco  Means  Total  Service. 


Mark  "Mac"  Bowser, 
Sales  Manager 

I  would  personally 
like  to  thank  all  of  our 
past  customers  for 
helping  to  make  Lyco 
Computer  one  of  the 
largest  mail  order 
companies  and  a 
leader  in  the  industry. 
Also,  i  would  like  to 
extend  my  personal 
invitation  to  all  computer 
enthusiasts  who  have 
not  experienced  the 
services  that  we  provide. 
Please  call  our  trained 

sales  sta1t  at  our  loll  free  number  to  inquire  about  our 

diverse  product  line  and  weekly  specials. 

First  and  foremost  our  philosophy  is  to  keep  abreast 
of  the  changing  market  so  that  we  can  provide  you  with 
not  only  factory-fresh  merchandise  but  also  the  newest 
models  offered  by  the  manufacturers  at  the  absolute  best 
possible  prices.  And  we  offer  the  widest  selection  of 
computer  hardware,  software  and  accessories. 

Feel  free  to  call  Lyco  if  you  want  to  know  more  about 
a  particular  item.  I  cant  stress  enough  that  our  loll-free 
number  is  not  just  for  orders.  Many  companies  have  a 
toll-free  number  for  ordering,  but  if  you  just  want  to  ask  a 
question  about  a  product,  you  have  to  make  a  toll  call.  Not 
at  Lyco.  Our  trained  sales  staff  is  knowledgeable  about  all 
the  products  we  stock  and  is  happy  to  answer  any  questions 
you  may  have.  We  will  do  our  best  to  make  sure  that  the 
product  you  select  will  fit  your  application.  We  also  have 
Saturday  hours  —  one  more  reason  to  call  us  for  all  your 
computer  needs. 

Once  you've  placed  your  order  with  Lyco,  we  don't 
forget  about  you.  Our  friendly,  professional  customer 
service  representatives  will  find  answers  to  your  questions 

about  the  status  of  an 
order,  warranties, 
product  availability,  or 
prices. 

Lyco  Computer 
stocks  a  multimilllon 
dollar  inventory  of 
factory-fresh 
merchandise.  Chances 
are  we  have  exactly 
what  you  want  right  in 
our  warehouse.  And  that 
means  you'll  get  it  fast. 
In  fact,  orders  are 
normally  shipped  within 
24  hours.  Free  shipping 
on  prepaid  cash  orders 
over  S50,  and  there  is 
no  deposit  required  on 
C.O.D.  orders.  Air  freight  or  UPS  Blue/Red  Label  shipping  is 
available,  too.  And  all  products  carry  the  full  manufacturers' 
warranties. 

I  cant  see  why  anyone  would  shop  anywhere  else.  Selec- 
tion from  our  huge  in-stock  inventory,  best  price,  service  that 
can't  be  beat  —  we've  go!  it  all  here  at  Lyco  Computer. 
TO  ORDER,  CALL  TOLL-FREE:  1-800-233-8760 
New  PA  Wats:  1-800-233-8760 
Outside  Continental  US  Call:  1-717-494-1030 

Hours:  9AM  to  8PM,  Mon.  -  Thurs. 
9AM  to  6PM,  Friday  —  10AM  to  6PM,  Saturday 

For  Customer  Service,  calM-717-494-1670,  

9AM  to  5PM,  Mon.  -  Fri.  i.,,.;,^ 

Or  write:  Lyco  Computer,  Inc.  _. 

P.O.  Box  5088,  Jersey  Shore,  PA  17740 

Risk-Free  Poltcy:  •  lull  manutacturers'  warranties  •  no  sales  tax  outside  PA 

•  prices  show  4%  casti  discount;  add  4%  (or  credit  cards  •  APO.  FPO, 
international:  add  S5  plus  3^a  for  priority  •  4-week  clearance  on  personal  checks 

•  we  check  lor  credit  card  thelt  •  compatability  not  guaranteed  •  return 
authonzation  required  •  pric«/avaiiability  subject  to  Changs  •  prepaid  orders  under 
S50  in  Continental  US,  add  S3.00 

Attention  Educational  Institutions: 

If  you  are  not  currently  using  our 
educational  service  program,  please 
call  our  representatives  for  details. 


AATARI" 


Access: 

TnplePack Si  1.95 

Leader  Board  Pack SI  4.95 

Actlvislon; 

Hitcti  Hikers SI  3.95 

Music  Studio $19.95 

Broderbund: 

Print  Shop  S2S.49 

Print  Shop  Compan S22.95 

Graphic  Lib.  I.  II,  111  .„.  S13,49 
Bank  SI.  Writer S27.95 

Elsctronic  Arts: 

Pinball  Con  Set  S8.9S 

Lords  ol  Conquest  „ S8.95 

Starileet  I S32.95 

Chess  Master  2<3O0 S25.95 

Music  Con  Set S8.95 

Super  Boulderdash  58,95 

One  on  One  38.95 

Firebird; 

The  Pawn $Z2M 

MIcroleague: 

MIcroleag.  Baseball $22.95 

General  Manager  Si  6.95 

Stat  Disk $13.95 

MIcroprgss: 

Conflict  in  Vietnam  S22.95 

F-15  Strike  Eagte  S19.95 

Kennedy  Approach S13.95 

Silent  Sen^ice $19.95 

Top  Gunner $13.95 

Strategic  Simuiationi: 

Battle  ol  Aniellem $28.95 

Battlecruiser  $33.95 

Nam , $22.95 

Phantasie „„.  S22.95 

Wargame  Construe.  .„.  S16.95 

Warship S33.9S 

Wizards  Crown S22.95 

Sublogic: 

Flight  Simutalor  II  $31.49 

Night  Mission  Pinball ...  S1B.95 

Scenery  #1-#6ea $12.95 

Scenery  #7  $14.96 


AATARfSr 


Access: 

LeadBr  Board  $22.95 

Tournament  #1  $11.95 

10«i  Frame $22.95 

Actlvlslon; 

Champion.  Baseball  ....  $22.95 

Champion.  Basketball .  $22,95 

Championship  GoN SNew 

GFL  Football  $22,95 

Leather  Goddesses $22.95 

Music  Studio $27.95 

Paint  Works $22.95 

Shanghai $22.95 

Bureaucracy $22.95 

Top  Fuel $19,95 

Electronic  Arts: 

Arctic  Fox  $25.95 

Empire  S3E.95 

Slarfleel  I $32.95 

Chess  Master  2000 S25.9S 

Gridiron $32.95 

Epyx: 

Sub  Battle  Simulator  ,„  $22,95 

WoikJ  Games $22,95 

Wrestling  $22.95 

Winter  Games  $22.95 


Firebird: 

Pawn  

Starglider  ...... 

GoWen  Path  . 
Guild  Ql  Thlev 
Tracker  


Batteries  IncI 
Pa|}erdip  III  . 
Outrageous  P 

Berkeley  Sot 

Deskpak  I  .... 

FonljMk  I  

Geodex 

Geolile 

Geo  Calc  

Qeos  64 

Geos 128  

Geowdle 


MQ    180    PRINT" {down]-    R    -   TO    RE 

START    GAME" : PRINT" 
{DOWNIPLACE    BET"DOj:INP 

UT" DOLLARS    LEFT    "?AM? 
PR    190    IFAH$=""ANDPR=1THEN250 
MA    200    IFflM5=""ANDPR=0THEN240 
DD    210    IFAM$="0"THENEND 
FA    22  0    IFAM$="R"THENRUN 
CC    230    GOTO260 

DB    240   GOSUB1050:PRINTTAB(6) " 
{RVS){RED}N0    PREVIOUS    H 

AND    WAS    PLAYED" :GOSUB 11 

20iGOTO160 
BA    250    POKE53272,  29:SYS49155,  3 
:GQ5UB1050:GOSUB1120: PO 

KE53272, 21:GOTO160 
FE    260    AM=VAL(AM? ) tAM=IKT(100* 

(AM+.005) )/l00 
MS    2  70    IFAM<.0lTHENGOSUB1050iP 

RINT"Y0U    cannot    BET    ZER 

0    DOLLARS" tGOSUB1120: GO 

TO160 
KM    280    IFAM>DOTHENGOSUB1050:PR 

INT "YOU    DC    NOT    HAVE    THA 

T    MUCH    MONEY" :GOSUB1120 
PD    290    IPAN>DOTHEN160 
SK    300    Z2=0 iZ 1=0 :DE=0: 01=0 :D2= 

0:P=0:D3=0!CL=0!  JK=0':HI 

=0  :  BU=0  :  SD=0  :  DD=0  :  S P=a  s 

00=0 
DE    310    Sl=0!QP=a:SP=0;Bl=0:Ol= 

0:O2=0:PL(0)=0:PL(1 )=0: 

PL(2)=0sPL(3)  =  0! J  PL (4)  = 

0 
AK    320    PG(0)=AM!D=0!pR=0iOl=DO 

-AM:02=Ol:PRINT"(CLR)" : 

POKE53272, 29: V=0: H=0 :Z2 

=DEiZl=D 
MC    330   GOSUB960:DE=Z2iD=Zl!GOS 

UB1110:D1=A:D2=A1:V=7:H 

=0:GOSUB1030:P1=A:P2=A1 
FD    340   H=6:V=0:GOSUB1040:D3=A! 

H=6: V=7 :GOSUB1030: P3=A 
BP    350    IFP1=12ANDP3<12ANDP3>70 

RP3=1 2ANDP1 <1 2ANDP1 >7TH 

EN1310 
JM    360    GOSUB1150:IFIK>0THENIN= 

0:GOTO140 

kf  370  gosub1050: print" (rvs) 
(red)h{off}{blk)it 

{RVS) {RED}SfOFF] {BLK]TA 
ND    S(RVS}{RED)PlOFF) 

{blkJlit   Jrvs1{red}d 
(offHblk)ouble  down  su 
rr{rvs) [red}e{ofp]{blk] 
nder" 

EC  380  GETOP5!lFOP?=""THEN380 
SK  390  IFOP?="P"THENJK=3:GOT04 

10 
GK  400  JK=ABB(ASC(OP$)-77)-4:I 

FJK  <0ORJK  > 5THEN380 
XX    410   ONJKGOTO420, 530, 540,640 

,690 
QA    420   HI=1:GOSUB510 
HJ    430    IFDD=1THENH=12:GOSUB103 

0 : DD=2 : SD=1 : GOSUB  510 
JQ    440    IFSD=1THENSD=0:H=6:V=V+ 

3:HI=0:GOTO470 
BX    450    IFB1=1THENB1=0:GOTO3  70 
KQ    460    H=H+6:GOSUB1030:GOSUB51 

0!B1=1;GOTO430 
JD    470    IFSP>0THENSP=SP-1:S1=S1 

+1 :  QP=OP -1 : P  =0 : GOT04  90 
DC    480    GOTO800 
BX    490    IFJ(S1)=1THENJ{S1)=0!P= 

1 
PP    500   GOSUB1030:Bl=l!GOTO430 
QE    510    IFBU=1THENSYS49158,  35,V 

+l! PRINT "I RVS} {RED} BUST 

":SD=l:DD=2iBU=0{HI=0 
EG    520   RETURN 
CJ    530    SYB49158, 35,  V+ltPRINT" 
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[RVS} {RED} STAND" :SD=1:G       KM 
OTO440 

FG    540    IFHI=1THENGOSUB1050:GOS 

UB620:GOSUB1120! GOTO370 
FK    550    IFA<>P1THENGOSUB1050:PR 

INT"YOU    CANNOT    SPLIT    SI 

NCE    NOT    OF    SAME" 
PK    560    IFA<>PITHENPRINT"VALUE 
(SPACElOR    DENOMINATION" 
:GOSUB1120:GOTO3  70 
JM    570    IFO1-AM<0THENGOSUB1050: 

GOSUB630: GOSUB1120: GOTO 

370 
RM    580    0l=Ol-AM!SP=SP+l:QQ=QQ+ 

1:QP=QP+1:PL(S1+QP)=B:P 

G(S1+QP)=AM:PL(S1)=B 
FD    5  90    QV=V 

CR    600    IFP>0THENP=l5 J(S14QP)=1 
PC    610   H=0:V=7+QQ*3:GOSUB10  70: 

V=QV: H=6 : GOSUB1030 : GOTO 

3  70 
GS    620    PRINT"YOU   CAN   SPLIT    ON 

{SPACEJTHE    FIRST    TWO    CA 

RDS[4    S PACES} ONLY ":RETU 

RN 
FC    63  0    PRINT "NOT    ENOUGH    MONEY 

{SPACE}F0R   the    SPLIT" :R 

ETURN 
FH    640    IFHI=1THENGOSUB1050:GOS 

UB670:GOSUB1120:GOTO3  70 
EA    650    IFDD=1THENGOSUB1050{GOS 

UB680:GOSUB1120:GOTO370 
DA    660    PG(S1)=AH/2:PL(S1)=0!SD 

=1:SE=1:SYS49158, 31,V+1 

: PRINT" {RVS} {RED}SURREN 

DER":GOTO430 
BM  670  PRINT "YOU  CANNOT  SURREN 

DEH  since  YOU  ALREADY 

{2  spaces} hit  on  this  h 

and " : return 
xp  680  print "you  cannot  surren 

der  since  you  doubled 

[2  spaces}down  on  this 

[spaceJhand" 
sk  690  ifhi=1thengosub1050!gos 

ub770:gosub1120:goto3  70 
rx  700  ifp>0thenaz=pl(s1)-10:g 

OTO720 
FH    710    AZ=PL(S1) 
HJ    720    IFAZO10ANDAZO11THENGC 

SUB1050:GOSUB780: GOSUB 1 

120:GOTO370 
MC    730    IFO1-AM<0THENGOSUB1050: 

GOSUB790:GOSUB1120:GOTO 

370 
MA    740    IFP>0THEKPLCS1)=PL(S1)- 

10  -^f-RA 

PR    750    PG(S1)=PG(S1)+AM:SYS491 

5  8, 29, V+1: PRINT" (RVS} 

{REDJDOUBLE    D0WN":DD=1: 

Ol=Ol-AMiGOTO430 
SC  760  STOP 

SC  770  PRINT" SORRY  YOU  ALREADY 
HIT  ON  THIS  HAND":RETU 

RN 
SD  780  PRINT"YOU  CAN  ONLY  DOUB 

LE  DOWN  ON  A  10  OR  11": 

RETURN 
JH  790  PRINT "NOT  ENOUGH  MONEY 

{SPACE}T0  DOUBLE  DOWN": 

RETURN 
QJ  800  A=D1:A1=D2:V=0sH=0:GOSU 

B1070:H=6: IFBJ=1THENBJ= 

0:GOTO870 
AJ    810    IPDE=21THENFORI=0TO3:PL 

(SG)=0:NEXT:GOTO870 
BS    820    IFS1<1ANDPL(0)>21THEN87 

0 
EC    830    IFSl<lANDSE=lTHENSE=0iG 

OTO870 
PX    840    IFDE>16THEN860 
QM    850   H=H+6jGOSUB1040:GOTO840        GS 


GE 


KH 


QJ 


MF 


MP 


HB 


XB 


KE 


HC 


DE 


CP 
MX 


KG 


FB 


AM 
KG 
CS 
EA 


DR 
HF 
DC 
AQ 
SQ 


860    IFDE>21THENSYS49158,  35, 
V+3; PRINT" {RVS} {RED} BUS 
T" 
870    V=7:FORI=0TOS1 
880    IFDE>21ANDPL(I )<220RDE< 
22ANDDE<PL(I)ANDPL(I )<2 
2THENGOSUB950 
890    IFDE<22ANDDE>PL(I)0RDE< 
22ANDPL(I)>210RDE>21AND 
PL (I )>22THENGOSUB940 
900    IFDE<22ANDDE=PL(I )THENS 
YS49158, 35, V+2: PRINT" 
{RVSJ (RED}PUSH"sPG(I)=0 
910    DO=DO+PG(I ):V=V+3!NEXT: 
DO=INT(100*(DO+.005) )/1 
00 
920   GOSUB1050:GOSUB1120:FOR 
I =1T01 3  tFORJ  =  lT04 : CH ( I, 
J )=0 : NEXT J, I : SYS491 55 , 1 
:PR=1 
930    GOTO140 

940    SYS49158, 35, V+2: PRINT" 
(RVS) [RED}L0SE": PG(I )=- 
PG(I ): RETURN 
950   SYS49158, 35, V+2: PRINT" 

{RVS} {red} WIN" : RETURN 
960    T=FRE(0) :A-INT(13*RND(1 
)}:A1=INT(4*RND(1 )+l ) : I 
FCH(A,A1)=1THEN960 
970    CH(A,Al)=l!B=A+2:IFA+2> 

9THENB=10 
980    IFA+2=14THENB=11 
990    IFB=11THENZ1=Z1+1 
1000    Z2=Z2+B:IFZ2>21ANDZl>0 

THENZ2=Z2-10 :Z1 =Z1 -1 
1010    IFZ2>21THENBU=1 
1020    RETURN 

1030  Z2=PL(S1):Z1=P:G0SUB96 
0: PL(S1 )=Z2:P=Z1: GOSUB 
1070: RETURN 
1040  Z2=DE:Z1=D:GOSUB960:DE 
=Z2:D=Z1:GOSUB1070!RET 
URN 
1050    CL=22iPORZZ=CLT024:SYS 

49158, 0,ZZ 
1060    PRINT" (39   SPACES} {UP}" 
: NEXT: SYS491 58,0,  22: RE 
TURN 
1070    IFA1=20RA1=4THENP0KE64 

6,0:GOTO1090 
1080    POKE646,2 
1090    SYS491 58, H,V: PRINT" 

{RVS}( )[DOWN) 

[6    LEFT} ,"CHR5(A+50)" 
{3    SPACES)- (DOWN) 
[6    LEFT),     "SI5(A1); 
1100    PRINT"{RVS) {UP]    -• 
(DOWN) (6    LEFT] , 
12    RIGHT)    -(DOWN) 
(6    LEFT], {3    SPACES) "CH 
R$(A+50) "-{DOWN} 
(6    LEFT] *////+": RETURN 
1110    FORZZ=0TO5!SYS4915e,H, 
V+ZZ: PRINT" ( RVS )E73l I  I 
111": NEXTZZ : RETURN 
1120   SYS49158, 13, 24:PR1NT" 
(RVS) (RED) PRESS    ANY    KE 
Y{BLK]{4    UP}" 
1130    GETY?:IFY5=""THEN1130 
1140    RETURN 

1150    IFD3  012THENRETURN 
1160    GOSUB1050:PRINT"{BLK}W 
ANT    INSURANCE     (RVS) 
{REDjY    N{0FF) " 
1170    GETY5:lFY?s-""THEN1170 
1180    IFY5="Y"THEN1210 
1190    IFY?="N"THENRETURN 
1200    GOTOH70 

1210    IF02-AH/2 <0THENGOSUB10 
50: GOSUB 1280: GOSUB 11 20 
: RETURN 
1220    IN=AM/2:02=02-AM/2:EO= 


DO-IN: IN=0 

PM    1230    IFDEO21THENGOSUB1290: 
IN=0:GOTO12  70 

XE  1240  A=D1:A1=D2:V=0:H=0!GOS 
UB1070:GOSUB1050 
PX  1250  PRINT" (BLK) DEALER  HAS 
(space} BLACKJACK  YOU  L 
OSE  YOUa{6  S PACES }INSU 
RANCE    MONEY   AND    SAVE    " 

PP    1260    PRINT" BET. " :GOSUB1120: 

IN=1 
XB    12  70   RETURN 
JH    1280    PRINT" (BLKJYOU    DO    NOT 

[SPACE] HAVE    ENOUGH   HON 
EY   TO    INSURE (2    SPACES} 

YOUR    BET": RETURN 
AK    1290    GOSUB1050 : PRINT "{ BLK )D 

EALER    DID    NOT    GET    BLAC 

KJACK   YOU    LOSE 

{3    SPACES} INSURANCE    "; 
QG    1300    PRINT"MONEY   AND    HAND    C 

ONTINUES"!GOSUB1120:RE 

TURN 
PX   1310   SYS49158,31,V+1:PRINT" 

{ RVS 3 { RED ) B LACK JACK " s P 

G (SI  )  =  1 . 5*flM :B J=l : GOTO 

800 
EX    1320    PRINT" {CLR} {10    DOWN} 

{RVS) {RED}YOU   ARE    OUT 

{SPACE) OF    MONEY" 
CG    1330    PRINT" [DOWN) {RVS} {red} 

WISH    TO    PLAY   AGAIN 

{BLK)Y   N{RED3?" 
XF    1340   GETY5:IFY$=""THEN1340 
HC    1350    IFY?="Y"THEN90 
GM    1360    IFY5="N"THENEND 
RK    1370    GOTQ1340 

Program  2:  Commodore  64 
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C000 

c00e 

C0I0 
C018 
C02  0 
C028 
C030 
C038 
C040 
C048 
C050 
C058 
C060 
C068 
C070 
C07a 
C080 
C088 
C090 
C098 
C0A0 
C0A8 
C0B0 
C0B8 
C0C0 
C0Ce 
C0D0 
C0D8 
C0E0 
C0E8 
C0F0 
C0F8 
C100 
C10e 
C110 
C118 
C120 
C128 
C130 
C138 
C140 
C148 


91 
87 


:4C   0  9   C0 

:C1   A9   30 

sSE  A6   A0 

res    19   A9 

(85    IB   A9 

:8S    ID   A9 

;31    19    91 

sBS    01    A0 

jC8   C0    00 

:E6    IE    E8 

:00  A9    04 

!01    11    19 

:ie  D0  A9 

!85    lA   A9 

:C1    91    19 

I  4C    6E    C0 

!  31    85    lA 

:5A   CI 

C8    4C 

A9    31    85 

iB9    3A  C2 

04   C8   4C 

;AE    20    9E 

E7   C0   E8 

81   00    0B 

ID    91    IF 

91    19   Bl 

:D0   El    E6 

iE6    20   E0 

:  00    AA    A0 

:A9    04    85 

:A9   C2    85 

rA9   D8    85 

:A9   C6    85 

:C1    ac    29 

:AA   AC    29 

20   PD  AE 

:B1    00    01 

7F    FF    80 

FE    FF    FF 

03    01    FF 

C0   80    00 


4C  AE 
85  34 
00  98 
DC  85 
30  85 
D0  85 
19  A9 
00  Bl 
D0  F7 
E0  09 
05  01 
91  19 
D0  85 
00  AA 
C0  2F 
A9  18 
A9    00 

19  C0 
C0  A9 
lA  A9 
91  19 
A0  C0 
AD  8D 
C8  AD 
Bl  19 
4C  D6 
IF  91 
lA  E6 
04  D0 
PP  A9 
lA  A9 
IC  A9 
IE  A9 

20  60 
CI  20 
CI  18 
20  9E 
03  07 
C0  E0 
7F  3F 
FE  FC 
00    00 


C0  4C 

85  3  8 
AA  A9 
lA  A9 
IC  A9 
IE  A9 
FB  25 
ID  91 

18  E6 
00  EB 
85  01 
A9  ID 

19  A9 
A8  B9 
F0  04 
85  19 
A8  AA 
DF  P0 
08  85 
00  A8 
C0  07 
60  20 
0D  Cl 
0D  Cl 
91  IB 
C0  Bl 
ID  C0 
IC  E6 
D4  60 
00  85 
43  85 
00  85 
43  85 
00  20 

20  Cl 
4C  F0 
AD  4C 
0F  IF 
F0  F8 
IF  0P 
F8  F0 
18  3C 


0E  E5 
20  7B 


0E 
00 
00 


4F 
8D 
53 


FE  EC 
01  DC 
IB  11 
IC  6D 
A0  F3 
A9  D6 


8D 
30 


12 
78 


2A  FD 
C8  74 


A9 

B9 


21 
SB 


04  D6 

19  18 
AA  D6 
F0  C9 
PD  B7 

20  84 
C9  P6 
Bl  AA 
IB  IE 
FF  0C 
IE  4D 
A9  7E 

19  9A 
IB  IB 
ID  E7 
IF  A5 

20  28 
98  76 
FF  31 
AA  F9 
3F  C6 
FC  49 
07  CE 
E0  04 
7E  A3 


C150:FF 
C158:07 
C160:E0 
C168:7D 
C170:BE 
C178:07 
C180:E0 
C188:80 
C190:01 
C19B:80 
C1A0:  01 
CIAS:  80 
ClB0:01 
C1B8:00 
C1C0:00 
C1C8:42 
C1D0:08 
ClDe:40 
C1E0:02 
C1ESS04 
C1F0:02 
ClFa!42 
C200!02 
C208:42 
C210:02 
C218:4A 
C220:48 
C228t44 
0230:42 
C238:42 
C240:33 


FF  FF 

0F  FF 

P0  03 

FF  C0 

PP  FF 

0F  FF 

P0  FF 

80  FP 

01  80 

FP  01 

FF  80 

80  01 

01  FF 
00  00 
FF  00 
7E  00 
7E  00 
7E  00 
7E  00 
04  00 
7E  00 
7E  00 

02  00 
7E  00 
7E  00 
EE  00 
78  00 
7A  00 
42  00 
42  CC 


7P  3D 

FE  BC 

0  7  0F 
E0  P0 
FF  FF 
FF  FF 
30  30 

01  01 
80  80 
01  01 
80  80 
01  01 
00  00 
00  00 
7E  42 
78  08 
7E  02 
7E  02 
40  40 
7E  40 
7E  40 
7E  02 
7E  42 
7E  42 
CE  4A 
7E  08 
7E  42 
42  42 
7E  42 
CC  33 


33    00    00    00 


19  01 

98  80 

0F  07 

F0  E0 

7D  39 

BE  9C 

80  80 

01  01 

80  80 

01  01 

80  80 

01  01 
00  00 
00  00 
42  42 
08  08 

02  7E 
02  IE 
44  44 
40  7E 
40  7E 

02  02 
42  7E 
42  7E 
4A  4A 

03  08 
42  42 
44  78 
42  7E 
33  CC 
00  00 


03  IF 
C0  ID 
3B  5F 
DC  BA 
03  BE 
C0  33 
80  40 
01  8B 
80  74 
01  9B 
80  44 

01  CB 
00  F4 
00  3C 
42  0E 
08  0D 
40  35 

02  5A 
7S  23 


02 
42 


59 
3F 


02  43 
42  49 
02  50 
4A  7D 
48  IF 
4A  B9 
44  EA 
42  A9 
CC  A2 
00    2C 


Program  3:  Apple  II  Casino 
Blackjack— BASIC 

Version  by  William  Chin,  Editorial 
Programmer 

V    10    REM  COPYRIGHT  1988  COMPUTE 

!  PUBLICATIONS,  INC.  -  ALL 
RIGHTS  RESERVED 
it   20  TEXT  :  HOME  :  PRINT  "   COP 

YftlBHT  19BB  COMPUTE!  PUBL. 

,  INC. " 
AE  30  HTAB  11:  PRINT  "ALL  RIGHTS 

RESERVED" 
11   31  yiAB  12:  HTftB  13:  PRINT  "fi 

NY  KEY  TO  START" 
CC  32  POKE  4916B,0 
je  33  T  =  RND  (1>:  IF  PEEK  (49 15 

2)  =  13  THEN  33 
Ca  35  POKE  40196,189:  POKE  40197 

,  13a 

C5  40  PRINT  CHR«  (4>  ;  "BLOAD  CANF 

IELD.ML,A*a000" 
8F  50  POKE  6,16B:  POKE  7,131:  IF 
PEEK  (4BB96)  =  76  THEN  PR 

INT  CHR*  (4) ; "PR«A*8340": 

PRINT  ;  GOTO  136 
ft   60  POKE  54,64:  POKE  55,131:  C 

ALL  1002 
2C  136  DIM  CH(13,4)  ,C(255):  HGR2 
:BL*  =  " 

7E  137  ACE  =  12:  DO  =  100:  HA  =  0: 

RESTORE 
5?  133  FOR  I  =  1  TO  5:  READ  A*,  A 

M»:C(  ASC  (A»))  =  I;C(  AS 

C  (AM*J)  =  I:  NEXT  1 
FB  139  DATA  "H",  "h"  ,  "S"  ,  "B"  ,  "P"  , 

"p","E","e","D","d" 
♦S  140  IF  DO  <  1  THEN  1320 
IC  1S0  HA  =  HA  +  1 
(B  160  IF  PF  =  1  THEN  HBR2 
B6  168  AM*  =  VTAB  12s  PRINT 

"YOU  WILL  START  HAND  "HA" 

3E  170  PRINT  "D  -  TO  QUIT" 

ES  180  PRINT  "R  -  TO  RESTART  GAM 
E":  PRINT  DO;"  DOLLARS  LE 
FT":  PRINT  "PLACE  BET 
" I :  HTAB  1 1 

37  182  T  =  0:  GET  A*:  IF  At  =  CH 
R»  (13)  THEN  190 

11  183  IF  A*  <  >  CHRS  (8)  AND  A* 


M  184 
FF  185 
Bl  186 

B*  187 

11  IBB 
«  189 

24  190 
Cl  210 
S2  220 


<  >  CHR*  (127)  THEN  186 
IF  LEW  (AM*)  <  2  THEN  AM* 

=  ■■":  (sDTO  189 
AH*  =  LEFT*  (AM*,  LEN  (AM 
*)  -  1)!  GOTO  189 
IF  A*  =  "G"  DR  A*  =  "R"  0 
R  A*  =  "q"  DR  A*  =  "r"  TH 
EN  AM»  =  A»:  GOTO  190 
ft  =  ASC  (A»):  IF  (A  >  57 
OR  A  <  48)  AND  A  <  >  46  T 
HEN  182 

AM*  =  AM*  +  A»:AM«  =  LEFT 
*  (AM*, 10) 
HTAB  11:  PRINT  " 

"S;  HTAB  lis  PRINT  AM»( 
:  GOTO  182 

IF  AM*  =  ""  THEN  PRINT  CH 
R»  (7);:  QOTO  182 
IF  AM*  =  "Q"  OR  AM*  =  "q" 

THEN  TEXT  :  HOME  :  END 
IF  AM*  =  "R"  OR  AM*  =  "r" 
HSR2  :  GOTO 


GOSUB  1120:  G 


THEN  HOME 
137 

GOTO  260 
GQSUB  1050: 
OTO  160 

AM  =  VAL  (AM«):AM  =  INT  ( 
100  «  (AM  +  .005))  /  100 
IF  AM  <  .ei  THEN  GDSUB  10 
50:  PRINT  "YOU  CANNOT  BET 

ZERO  DOLLARS":  QOSUB  112 
0;  GOTO  160 

IF  AM  >  DO  THEN  GOSUB  105 
0:  PRINT  "YOU  DO  NOT  HAVE 

THAT  MUCH  MONEY":  GDSUB 
1120:  QDTO  160 
Z2  =  0!Z1  =  0:DE  =  0:DI  = 

0:D2  =  0:P  =  0:D3  =  0:CL 

«  0:JK  =  0:HI  =  0:BU  =  0 
:SD  =  0:DD  =  0:SP  =   0:00 
=  0JSE  =  0 
SI  =  0:QP  =  0:SP  =  0:Bi  = 

0:01  =  0:02  =  0:PL(0)  = 
0:PL(1)  =  0:PL(2)  -  0:PL( 
3)  =  0:PL(4)  «"  0:PF  =  0 
PGC0)  =  AM:D  =  0:PR  =  0:0 
1  =  DO  -  AM: 02  =  01:  HGR2 

:V  =  0:H  =  0:Z2  =  DE:Z1 
=  D 

GOSUB  960: DE  =  Z2:D  =  Zls 
Dl  =  A:D2  =  A1:V  -  7:H  ■» 
0!  GOSUB  1030: PI  =  A:P2  = 

Al 
HCDLOR=  3:V  =  0:TX  =  H  « 
6  +  1:TY  =  V  *  8:  HPLOT  T 
X,TY  TO  TX  +  16, TY  TO  TX 
+  16, TY  +  23  TO  TX.TY  +  2 
3  TO  TX,TY 
69  334  FOR  I  =  4  TO  12  STEP  4:  H 
PLOT  TX,TY  +  I  TO  TX  +  16 


75  340 


21  350  IF  PI  =  ACE  AND  P3  <  ACE 
AND  P3  >  7  OR  P3  =  ACE  AN 
D  PI  <  ACE  AND  PI  >  7  THE 
N  1310 

«  360  GOSUB  1150:  IF  IN  >  0  THE 
N  IN  =  0:  GOTO  140 

a*  370  GOSUB  1050:  PRINT  "H  HIT 
S  STAND   P  SPLIT":  PRINT 
"D  DOUBLE   E  SURRENDER" 

09   380    GET    OP*:JK    =    C(    ASC     (0P») 
) 


IB   230 
AA   250 


9F  260 
9F  270 


SB   2G0 


D2   300 


17  310 


E9   320 


4C  330 


3S  332 


,TY 

+  I 

+ 

8: 

NEXT 

H  = 

6;V 

= 

0: 

GOSUB 

1040: D 

3  = 

A:H 

= 

6: 

V  =  7: 

BOSUB 

1030: P3 

= 

A 

65 

390 

IF  JK  =  0  THEN  380 

A9 

410 

ON  JK  GOTO  420,530,540,64 
0,69fi 

<E 

420 

HI  =  1:  GOSUB  510 

Ffi 

430 

IF  DD  =  1  THEN  H  =  12:  GO 
SUB  1030: DD  =  2:SD  =  1:  6 
DSUB  510 

tl 

440 

IF  SD  =  1  THEN  SO  =  0:H  = 
6:V  =  V  +  4:HI  =  0:  GOTO 
470 
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(3 

450 

Fd 

460 

IS 

470 

21 

4B0 

C3 

4'?0 

E8 

500 

(17 

510 

1  THEN  HTOB  36: 
+  2:  PRINT  "BUST" 
:DD  =  2:BU  =  0:HI  ■■ 


19  520 
£B  530 


a  540 


Bl  550 


IC  570 


ii  580 


?5  5'?0 
i2   600 


610 


B2  620 


AS  630 


17  640 


1?  660 


fS  670 


21  690 


75  700 


51 

710 

i: 

730 

F2 

740 

» 

750 

n  770 


Si   790 


i«  S00 


S10 


IF  Bl  =  1  THEN  Bl  =  0:  GO 

TO  370 

H  =  H  +  6:  GDSUB  1030:  BO 

SUB  510: Bl  =  1:  GOTO  430 

IF  SP  >  0  THEN  BP  =  SP  - 

1:31  =  SI  +  1:BP  =  BP  -  1 

:P  =  0:  GOTO  4'?0 

GOTO  800 

IF  JCBl)  =  1  THEN  J (SI)  = 

0:P  =  1 
GQSUB  1030: Bl  =  1:  BDTQ  4 
30 

IF  BU 
TAB  V 
D  =  1 
0 

RETURN 

HTflB  36:  VTAB  V  +  2:  PRIM 
T  "STAND" !SD  =  1:  GOTO  44 
0 

IF  HI  =  1  THEN  GOSUB  1050 
:  GOSUB  620:  GOSUB  1120: 
GOTO  370 

IF  A  <  >  PI  THEN  GOSUB  10 
50:  PRINT  "CARDS  MUST  BE 
THE  SAME  TO  SPLIT.":  60SU 
B  1120!  SOTO  370 
IF  01  -  AM  <  0  THEN  GOSUB 

1050:  GOSUB  630:  GOSUB  1 
120:  GOTO  370 
01  =  01  -  ftM:SP  =  SP  +  1: 
QQ  =  QQ  +  1:QP  =  QP  +  1:P 
L(S1  +  QP)  =  B:PB(S1  +  QP 
)  =  AM: PL (SI)  =  B 
QV  =  V:PF  =  1 
IF  P  >  0  THEN  P  =  1:JCS1 
+  QP)  =  1 

H  =  0:V  =  7  +  QQ  *  4:  SOS 
UB  1070: V  =  QV:H  =  6:  GOS 
UB  1030:  SOTO  370 
PRINT  "MAY  ONLY  SPLIT  ON 
THE  FIRST  TWO  CARDS.":  RE 
TURN 
PRINT  "DO  NOT  HAVE  ENOUGH 

MONEY  FOR  SPLIT.":  RETUR 
N 

IF  HI  =  1  THEN  GOSUB  1050 
:  GOSUB  670  s  (30SUB  1120: 
GOTO  370 

PG(Sl)  =  AM  /  2:PL(S1)  = 
0:SD  =  1:SE  =  1:  HTAB  32: 

VTAB  V  +  2:  PRINT  "SURRE 
NDER":  GOTO  430 
PRINT  "YOU  CAN  NOT  SURREN 
DER  BECAUSE  YOU":  PRINT  " 
ALREADY  HIT  ON  THIS  HAND. 
":  RETURN 

IF  HI  =  1  THEN  GOSUB  1050 
:  GOSUB  770:  GOSUB  1120: 
GOTO  370 
IF  P  >  0  THEN  AZ  =  PL (SI) 

-  10:  GOTO  730 
AZ  =  PL(Sl) 
IF  01  -  AM  <  0  THEN  GOSUB 

1050;  GOSUB  790:  GOSUB  1 
120:  GOTO  370 
IF  P  >  0  THEN  PL (SI)  =  PL 
(SI)  -  10 

Pe(Sl)  =  PG(S1>  +  AM:  HTA 
B  29:  VTAB  V  +  2:  PRINT  " 
DOUBLE  DOWN":DD  =  1:01  = 
01  -  AM!  GOTO  430 
PRINT  "SDRRY  YOU  ALREADY 
HIT  ON  THIS  HAND.":  RETUR 
N 

PRINT  "YOU  DO  NOT  ENOUGH 
MONEY  TO  DOUBLE  DOWN.":  R 
ETURN 

A  =  D1:A1  =  D2:V  =  0:H  = 
0:  BOSUB  1070:H  =6:  IF  B 
J  =  1  THEN  BJ  =  0:  GOTO  8 
70 
IF  DE  =  21  THEN  FOR  1=0 

TO  3:PL(I)  =  0:  NEXT  :  B 
OTO  870 


«  B 

=  Al 


«  820  IF  SI  <  1  AND  PL(0)  >  21 

THEN  B70 
F3  830  IF  SI  <  1  AND  SE  =  1  THEN 

SE  =  0:  GOTO  870 
32  840  IF  DE  >  16  THEN  860 
4B  S50  H  =  H  +  6:  GOSUB  1040;  GO 

TO  840 
SB  860  IF  DE  >  21  THEN  HTAB  36: 
VTAB  V  +  3:  PRINT  "BUST" 
H   870  V  =  7:  FDR  I  =  0  TO  SI 
flF  880  IF  DE  >  21  AND  PL ( I )  <  22 
OR  DE  <  22  AND  DE  <  PLC 
)  AND  PL (I)  <  22  THEN  GOS 
UB  950 
7D  890  IF  DE  <  22  AND  DE  >  PL  ( I ) 
OR  DE  <    22  AND  PL (I)  >  2 
1  OR  DE  >  21  AND  PL ( I )  > 
22  THEN  GOSUB  940 
(3  900  IF  DE  <  22  AND  DE  =  PL  ( I ) 
THEN  HTAB  36:  VTAB  V  +  3 
:  PRINT  "PUSH";PG(I)  =  0 
Cft  910  DO  =  DO  +  PG(I):V  =  V  +  4 
:  NEXT  ;D0  =  INT  (100  <  ( 
DO  +  .005) >  /  100 
CF  920  GOSUB  1050:  FOR  I  =  1  TO 
13:  FOR  J  =  1  TO  4:CH(I,J 
)  =  0:  NEXT  J, I:PR  =  1 
'C  930  GOTO  140 

JC  940  HTAB  35:  VTAB  V  *  3:  PRIN 
T  "  LDSE":PG(I)  =  -  PG ( I ) 
:  RETURN 
8F  950  HTAB  35:  VTAB  V  +  3:  PRIN 

T  "  WIN":  RETURN 
C2  960  T  =  FRE  (0):A  =  INT  (  RND 
(1)  «  13):ftl  =  INT  (4  t 
RND  (1)  +  1)  :  IF  CH(A,A1) 
=  1  THEN  960 
IE  970  CH(A,A1)  =  1:B  =  A  +  2:  I 

F  ft  >  7  THEN  B  =  10 
F«  980  IF  A  =  ACE  THEN  B  =  11 
U   990  IF  B  =  11  THEN  21  e  zi  + 

1 
Eft  1000  Z2  =  Z2  +  B:  IF  Z2  >  21 
AND  Zl  >  0  THEN  Z2  =  Z2 
-  10:Z1  =  Zl  -  1 
E8  1010  IF  Z2  >  21  THEN  BU  =  1 
D9  1020  RETURN 

3F  1030  Z2  =  PL(S1):Z1  =  P:  GOSU 
B  960:PL<S1)  =  Z2:P  =  Zl 
:  GOSUB  1070:  RETURN 
111  1040  Z2  =  DE:Z1  =  D:  GOSUB  96 
0:DE  =  Z2:D  =  Zl:  BOSUB 
1070:  RETURN 
63  10S0  CL  =  22:  FOR  ZZ  =  CL  TO 

24;  HTAB  1:  VTAB  ZZ 
n    1060  PRINT  BL*:  NEXT  :  HTAB  1 
!  VTAB  22:  RETURN 

37  1070  IF  Al  =  2  OR  Al  =  4  THEN 

1090 
41  1090  T  =  Al  *  13  +  ft  ^  11:TX 

=H»6+1:TY=V 
A4  1092  IF  A  =  ACE  THEN  T 

13  -  12 
B5  1094  CALL  3276S,  T,  TX,  TY 
D3  1100  RETURN 
BF  1120  HTAB  13:  VTAB  24:  PRINT 

"PRESS  ANY  KEY" 
n    1130  BET  Y*:  GOTO  1050 
C6  1140  REM 
2F  1150  IF  D3  <  >  12  THEN  RETURN 

38  1160  GOSUB  1050:  PRINT  "WANT 

INSURANCE  Y  N" 
F4  1170  BET  Y*:  IF  Y*  =  ""  THEN 

1170 
FD  1180  IF  Y»  =  "Y"  OR  YS  =  "y" 

THEN  1210 
M  1190  IF  Y*  =  "N"  OR  Y4  =  "n" 

THEN  RETURN 
6C  1200  GOTO  1170 
24  1210  IF  02  -  AM  /  2  <  0  THEN 

GDSUB  1050:  BOSUB  12B0; 

GOSUB  1120:  RETURN 
72  1220  IN  =  AM  /  2:02  =  D2  -  AM 

/  2:D0  =  DO  -  IN: IN  =  0 
F4  1230  IF  DE  <  >  21  THEN  GOSUB 


1290: IN  =  0!  SOTO  1270 
E7  1240  A  =  D1:A1  =  D2:  V  =  0:  H  = 
0:  GDSUB  1070:  GOSUB  10 

50 
eS    1250  PRINT  "DEALER  HAS  BLACKJ 

ftCK  YOU  LOSE  YOUR":  PRIN 

T  "INSURANCE  MONEY  AND  S 

AVE  YOUR  BET, " 
M  1260  GOSUB  1120: IN  =  1 
Fl  1270  RETURN 
22  1280  PRINT  "YOU  DO  NOT  HAVE  E 

NOUBH  MONEY  TO  INSURE": 

PRINT  "YOUR  BET.":  RETUR 

N 
fiF  1290  GDSUB  1050:  PRINT  "DEALE 

R  DID  NOT  GET  BLACKJACK. 
YOU  LOSE":  PRINT  "INSUR 

ANCE  MONEY  AND  HAND  CONT 

INUES. " 
76  1300  GOSUB  1120:  RETURN 
E7  1310  HTAB  31:  VTAB  V  +  2;  PRI 

NT  "BLACKJACK" :PB (SI >  = 

1.5  *  AM:BJ  =  1:  GOTO  80 

0 
(B  1320  HBR2  :  VTAB  15:  PRINT  "Y 

OU  ARE  OUT  OF  MONEY" 
Ft  1330  PRINT  "WISH  TO  PLAY  AGAI 

N  (Y/N)?" 
40  1340  GET  Y$ 
BE  1350  IF  Y$  =  "Y"  OR  Y*  =  "y" 

THEN  H6R2  :  GOTO  137 
5D  1360  IF  Y«  =  "N"  OR  YS  =  "n" 

THEN  TEXT  :  HOME  :  END 
82  1370  GOTO  1340 


Program  4 
Blackjack- 

20  EC 


8000: 
8008: 
8010: 
8018: 
8020: 
8028: 
8030: 
8038: 
8040: 
8048: 
8050: 
8058: 
8060: 
806S: 
8070: 
8076: 
8080: 
8086: 
B090! 
809S: 
B0A0: 
80  AB: 
80B0: 
S0BS: 
80C0: 
B0CS: 
8000: 
80DB: 
B0E0: 
80EB: 
80F0: 
80FB: 
8100: 
5108: 
8110: 
8118: 
8120: 
8128: 
B130: 
8138: 
8140: 
8148: 
8150: 
81SB: 
B160: 
8168: 
8170: 
817B: 

aia0: 


B0  6D 

26  83 
S3  8D 
83  D0 
A9  35 
2E  83 
02  8D 

18  8D 
5C  81 
D0  F2 
00  AD 
04  AD 

08  AD 
0C  AD 
72  82 
AA  82 
0A  0A 
80  85 
FD  CB 
B9  78 
C9  07 
83  B0 
80  18 
A9  01 
22  83 
2B  83 

09  81 
EE  IE 
B3  D0 
35  90 
B3  C9 

27  83 
60  AD 
A9  00 
IS  6D 
E9  07 
AD  2C 
AC  21 
2C  83 
83  E8 
D0  EB 
09  80 
8B  10 
BA  81 

19  2C 
F0  08 
D0  F8 
A0  00 


Apple 
-ML 

80  B0  72 
20  5B  82 
F0  0F  A9 
2D  83  A9 
0F  A9  2A 
80  20  83 
A9  03  BD 
22  83  20 
16  83  20 
EE  IE  83 
AD  26  S3 
27  83  20 
27  83  20 
26  83  20 
26  83  20 
03  08  92 
01  01  AA 
0A  8D  2B 
FC  C8  B9 
AD  28  83 
80  C8  18 
90  07  E9 
F5  8D  21 
6D  2A  83 
8D  lA  83 
A9  08  80 
Bl  FC  8D 
20  98  81 
83  EE  2B 
E4  60  20 
01  60  A2 
0E  90  07 
B0  F5  SD 
lA  S3  8D 
99  20  B3 
22  83  C9 
EE  IC  83 
83  09  7F 
83  F0  15 
BD  2C  83 
EC  IC  83 
AC  IC  83 
2D  ID  83 
F2  60  AC 
AC  IC  83 
83  91  FE 
B9  2C  83 
AC  21  83 
31  FE  0D 


II  Casino 


20  00 
B0  68 
7F  8D 
07  80 
BD  2C 
A9  02 
lA  83 
09  81 

98  81 
CE  IB 
F0  20 
88  80 
88  90 
88  80 
88  80 
82  0A 

82  0A 

83  B9 
78  80 
8D  20 
6D  29 
07  EE 
B3  B9 
BD  IE 
A9  07 
IB  83 
2C  83 
20  5C 
83  CE 
67  82 
00  8E 
E9  0D 
26  83 
IC  S3 
AD  21 
07  90 
SD  23 
SD  ID 
A2  00 
0fl  3E 
D0  F3 
B9  2C 

99  2C 
23  83 
88  31 
88  30 
91  FE 
B9  91 
2C  83 


82  FD 
AD  CB 
2C  A6 
2E  CE 

83  F6 
BD  2C 
A9  14 
A9  EB 
20  D2 
83  AB 
A0  4F 
A0  A6 
A0  B0 
A0  9A 
60  64 
08  EE 
0F  2A 
78  7E 
85  93 
83  19 
83  85 
20  3C 
78  3A 
83  62 
BD  88 
AC  FD 
20  92 
81  13 
IB  60 
C9  EF 
27  30 
EE  El 
18  11 
AS  AE 
83  76 
05  8F 
83  93 
83  FD 
0E  92 
2D  9A 
88  6E 
83  E4 
83  CO 
B9  BA 
FE  FF 
0A  11 
88  D0 
81  71 
91  9B 


38  COMPUTE!  March  1963 


81G8: 
81<70: 

ai.<?e: 

81A0: 
BIAS; 
eiB0: 
eiBS: 

eic0s 

aiCG: 
aiD0: 
BIDS: 
B1E0: 
81E8: 
81F0! 
BIFS: 
8200: 
820B: 
8210: 
B218: 
8220: 
8228: 
S230: 
8238: 
8240: 
8248: 
8250: 
B2S8: 
B260: 
826S: 
8270: 
8278: 
8280: 
8288: 
S290I 
8298: 
S2A0: 

82  A8: 
8280: 
82B8: 

a2c:0: 

82CB: 
82D0: 
82D8: 
82E0: 
82Ee: 
B2F0! 
B2F8: 
8300: 
8308: 
8310: 
8318: 
8320: 
8328: 
B330: 
8338: 
8340: 
8348: 
8350: 
835Bt 
8360: 
8368: 
8370: 
8378: 
83B0: 
838S! 
B370: 
8398! 

83  A0: 
B3Aa: 
83B0: 
B3B8: 
B3C0: 
83C8: 
83D0! 
9308: 
83E0: 
83EB: 
83F0: 
83FB! 
8400: 
8408! 
8410: 
8418: 
8420: 
8428: 
6430: 
8438: 
8440: 


FE  60  7F 
40  00  01 
AD  IE  83 
81  05  E6 
29  08  F0 
IE  B3  70 
69  2B  6D 
00  04  0B 

00  04  0B 

01  0S  09 

01  05  09 

02  06  0A 

02  06  0A 

03  07  0B 

03  07  0B 
A9  00  80 
20  67  82 
90  12  F0 
01  60  A9 

04  8D  21 
83  A9  £0 
83  CD  24 
83  38  2E 
90  EF  16 
83  SD  29 
6D  20  83 
S3  18  60 
B3  80  2A 
Bl  00  20 
ft0  60  7F 
0F  7F  7F 
5F  7F  7F 
47  7F  7F 
5F  7F  7F 
7F  7F  7F 
7F  7F  7F 
7F  7F  7F 
7F  7F  63 
IC  IC  63 
7C  00  63 
IC  63  4F 
4F  4F  00 
IC  63  43 
IC  63  00 
73  73  63 
IC  63  63 
IC  63  01 
67  67  IF 
IC  63  63 
44  13  IC 
IC  IC  01 
14  03  07 
13  00  08 
00  00  00 
00  00  00 
D8  78  85 
A6  07  0ft 
30  04 
IB  18  65 
E6  IB  AS 
29  03  05 
A0  00  Bl 
49  7F  A4 
00  02  E6 
04  85  0? 
A6  46  A4 
00  00  00 
00  00  00 
00  00  00 
08  08  08 

14  14 
14  3E 
08  3C  0A 
06  26  10 
04  0A  0A 
08  0B  08 
08  04  02 
08  10  20 
08  2A  iC 
00  08  08 
00  00  00 
00  00  00 
00  00  00 
00  20  10 

IC  22  32 
08  0C  08 

IC  22  20 
3E  20  10 


15 
13 


10  0 


14 
14 


7E  7C  78 

03  07  0F 
29  3F  AS 
85  FF  AD 
02  A9  80 

04  10  04 
20  83  B5 
0C  10  14 
0C  10  14 
0D  11 
0D  11 
0E  12  16 
0E  12  16 
0F  13  17 
0F  13  17 
20  83  80 
80  IF  83 
01  60  C9 

24  80  20 
S3  A9  00 
SD  24  83 
83  90  04 

25  83  4E 
60  21  83 
S3  IS  AD 
80  20  83 
20  67  82 
S3  C9  C0 

05  El  AS 
7F  5F  07 
7F  77  55 
7F  47  47 
7F  5F  57 
7F  7F  7E 
7F  7E  7A 
7F  7F  7F 
7F  7F  7E 
IC  IC  IC 
IC  IF  IF 
IC  IF  63 
47  43  49 
7C  7C  60 
79  7C  60 
IC  IF  4F 
IC  IC  63 
IC  IC  IC 
67  67  67 
IF  IF  IF 
IC  IC  IC 
IC  IC  60 
00  02  7F 

03  03  13 
28  7B  04 
00  00  00 
00  00  00 
45  86  46 
0A  B0  04 

1  E8  E8 

06  85  lA 
28  85  08 
E6  B3  09 
lA  24  32 
24  91  08 
IB  A5  09 
CA  00  E2 
47  58  4C 
00  00  00 
00  00  00 
00  00  00 
08  08  00 
00  00  00 

14  3E  14 
IC  28  IE 
08  04  32 

04  2A  12 
00  00  00 
02  02  04 
20  20  10 
0B  IC  2 A 
3E  08  08 
00  08  08 
3E  00  00 
00  00  00 
08  04  02 
2A  26  22 
08  08  08 

15  04  02 
18  20  22 


IB 
18 
19 
19 
lA 
lA 
IB 


70  60  02 

IF  3F  F5 

B9  C0  CD 

IE  S3  51 

18  2C  2C 

69  28  7D 

FE  60  BA 

IC  A3 

IC  AB 

ID  B3 

ID  BB 

IE  C3 

IE  CS 

IF  03 

IB  IF  DB 

21  83  A5 

C0  01  A9 

IB  90  FA 

83  A9  CA 

BD  25  74 

AD  IF  F7 

ED  24  BB 

24  83  46 
8D  21  B6 

25  83  15 
80  28  AF 
80  IE  Bl 
60  20  3A 
Al  A4  28 
01  01  DF 
55  57  DF 
01  01  57 
55  57  53 
78  78  6C 
7A  7E  76 
7E  7E  A2 
7A  7E  9E 
00  IC  F0 
63  7C  B9 
IF  IF  16 
4C  00  EA 
IF  IF  DB 
IC  IC  7E 
67  73  07 
IC  IC  75 

03  IF  81 
67  67  BA 
IF  IF  3D 
IC  10  BO 
IC  IC  F9 
IF  85  26 

04  02  71 
00  00  10 
00  00  37 
00  00  3F 
B4  47  74 
10  3E  3A 
0A  86  08 
90  02  B7 
A5  29  99 
A2  08  71 
30  02  EB 
E6  lA  6F 
18  69  E9 
A5  45  63 
F0  FD  59 
00  00  9F 
00  00  A7 
00  00  AF 
08  00  SF 
00  00  51 
14  00  4A 
06  00  AF 
30  00  30 
2C  00  D7 
00  00  EE 
08  00  85 
08  00  57 
08  00  2C 
00  00  50 
04  00  79 
00  00  FC 
08  00  31 
00  00  OB 
IC  00  A2 
IC  00  5A 
3E  00  02 
IC  00  BS 


8448: 
8450: 
8458: 
8460: 
8468: 
8470: 
8478: 
8480: 
8488: 
8490: 
8498: 
84A0! 
84  AS: 
84B0: 
84B8: 
B4C0: 
84CB: 
B4D0: 
S40B: 
84E0i 
e4E8: 

a4F0s 

84F8: 
8500: 
8S08: 
8510: 
8518; 
8520: 
8528: 
8530: 
8538: 
8540: 
8548: 
BS50: 
8558: 
8560: 
6568: 
8570: 
8578: 
8580: 
8588: 
8590: 
8598: 
85A0: 
SSASi 
8SB0: 
BSB8: 
S5C0t 
S5C8: 
85O0I 
8508: 
85E0: 
aSESi 
B5F0: 
8SF8: 
8600: 
8608: 
6610: 
8618: 
8620: 
B62Bi 
8630: 
8638: 
B640: 
8648: 
8650: 
8658: 
8660: 
8668: 
8670: 
8678: 
8680: 
8688: 
B690; 
S69B: 
86A0: 


10  18 
3E  02 
3B  04 
3E  20 
IC  22 
IC  22 
00  00 
00  00 
10  08 
00  00 
04  08 
IC  22 
IC  22 
08  14 
IE  22 
IC  22 
IE  22 
3E  02 
3E  02 
3C  02 
22  22 
IC  08 
20  20 
22  12 
02  02 
22  36 
22  22 
IC  22 
IE  22 
IC  22 
IE  22 
IC  22 
3E  08 
22  22 
22  22 
22  22 
22  22 
22  22 
3E  20 
3E  06 
00  02 
3E  30 
00  00 
00  00 

04  08 
00  00 
02  02 
00  00 
20  20 
00  00 
18  24 
00  00 
02  02 

05  00 
10  00 
02  02 
0C  08 
00  00 
00  00 
00  00 
00  00 

00  00 

00  00 

00  00 
04  04 
00  00 
00  00 
00  00 
00  00 
00  00 
00  00 
38  0C 
08  08 
0E  18 
2C  lA 
00  2A 


14  12 
IE  20 
02  IE 
10  08 
22  IC 
22  3C 
08  00 
08  00 
04  02 
3E  00 
10  20 
10  08 
2A  3A 
22  22 
22  IE 
02  02 
22  22 
02  IE 
02  IE 
02  02 
22  3E 
08  08 
20  20 
0A  06 
02  02 
2A  2A 
26  2A 
22  22 
22  IE 
22  22 
22  IE 
02  IC 
08  08 
22  22 
22  22 
22  2A 
14  08 
14  08 
10  08 
06  06 
04  08 
30  30 
08  14 
00  00 
10  00 
IC  20 
IE  22 
3C  02 
3C  22 
IC  22 
04  IE 
IC  22 
IE  22 
0C  08 
IB  10 
22  12 
08  08 
36  2A 
IE  22 
IC  22 
IE  22 
3C  22 
3A  06 
3C  02 
IE  04 
22  22 
22  22 
22  22 
22  14 
22  22 
3E  10 
0C  06 
08  08 
18  30 
00  00 
14  2A 


3E  10 
20  22 
22  22 
04  04 
22  22 
20  10 
08  00 
08  08 
04  08 
3E  00 
10  08 
08  00 
lA  02 
3E  22 
22  22 
02  22 
22  22 
02  02 
02  02 
32  22 
22  22 
08  08 
20  22 
0A  12 
02  02 
22  22 
32  22 
22  22 
02  02 
2A  12 
0A  12 
20  22 
06  06 
22  22 
22  14 
2A  36 
14  22 
08  08 
04  02 
06  06 
10  20 
30  30 
22  00 
00  00 
00  00 
3C  22 
22  22 
02  02 
22  22 
3E  02 
04  04 
22  3C 
22  22 
08  08 
10  10 
0E  12 
08  08 
2A  2A 
22  22 
22  22 
22  IE 
22  3C 
02  02 
IC  20 
04  24 
22  32 
22  14 
2A  2A 
08  14 
22  3C 
08  04 
0C  0C 
0B  08 

18  18 
00  00 

14  2A 


10  00  55 
IC  00  80 
IC  00  72 
04  00  4B 
IC  00  OF 
0E  00  75 
00  00  C2 
04  00  F2 
10  00  9C 
00  00  S3 
04  00  52 
0a  00 


3C  00 


13 
82 


IC 
IC 
22 


24 
El 
IF 


F9 
0D 


22  00  E7 
IE  00  55 
IC  00  91 
IE  00  AS 
3E  00  30 
02  00  BF 
3C  00  7B 
22  00  91 

00 

00 

00 

3F  00  89 
22  00  7F 
22  00  82 
IC  00 
02  00 
2C  00  2A 
22  00  DD 
IC  00  AS 
06  00  66 
IC  00  2D 
08  00  04 
22  00  5A 
22  00  70 
08  00  88 
3E  00  01 
3E  00  12 
00  00  16 
3E  00  BE 
00  00  F6 
00  7F  2B 
00  00  B9 
3C  00  24 
IE  00  01 
3C  00  04 
3C  00  A7 
3C  00  F3 
04  00  93 
20  IC  EF 
22  00  39 
IC  00  9A 
12  0C  01 
22  00  F0 
IC  00  37 


22  00 
22  00 


C4 

E8 

00  A4 


IC 

02  02  AA 
20  20  49 
02  00  09 
IE  00  92 
18  00  3D 
2C  00  F5 
08  00  3D 
36  00  3A 
22  00  CF 
20  IC  42 
3E  00  IB 
38  00  8F 
08  08  95 
0E  00  ED 
00  00  42 
00  00  A6 


Program  5:  Atari  400/800/ 
XL/XE  Casino  Blackjack 

Version  by  William  Chin,  Editorial 
Programmer 

RD  10  REM  COPYRIGHT  1988  COM 
PUTE:  PUBLICATIONS,  IN 
C.  -  ALL  RIGHTS  RESERV 
ED 

CN20  OPEN  »I  ,  4,  0,  "K:  "  :POKE 


752,  1 :POKE  B2,  1 
EL  30  PRINT  CHR*(125)  :PRINT 
CDPYRIBHT  1983  COMP 
UTE :  PUBL. ,   INC. " 
UH  40  POSITION  10,2:PRINT  "A 

LL  RIGHTS  RESERVED" 
fiC50  POSITION  15,12:?  "BLAC 

KJACK" 
fH   60  GOSUB  1150 

IL  70  DIM  CH  (  13,  4)  ,  A«  <  1  )  ,  Y»  ( 
1 > ,aP» (1 ) , AM* ( 10) ,C (25 
5)  ,PL (4)  , PE(4)  , J  <4)  ,R$ 
( 13) ,3* (4) 
0480  C  (72>  =  1:  C  (83)  =2:C(B0)  = 
3! C (69) =4: C (68) =5: C (89 
) =6: C(78)=7 
HL  90  C  (81  )  =8:  C  (82)  =8:  C  (  126) 
=9:C(30>=9:C(46)=10:FO 
R  1=48  TO  57:C(I)=10:N 
EXT  I 
LL  100  FOR  1=65  TO  90:C{I+32 
) =C ( I ) : NEXT  I : REM  LOW 
ER  CASE 
CC110  R»="234567a9TJQ)<A"  :  S* 
( 1 ) =CHR» (251 )  i  S« (2) =C 
HR» ( 128) : S» (3)=CHR* ( 1 
44) :S«(4) =CHR* (224) 
LL  120  FOR  1  =  1  TO  13:R»(I,I) 
=CHR* (ASC (R»(I,I))+12 
8) :NEXT  I 
EP  130  PRINT  CHR*  (  125)  :  V  =  0:  H 

=0: TY=4 
C6  140  DO=100;HA  =  0 
BK  150  IF  DD<1  THEN  1350 
EC  160  HA  =  HA+1 
flE 170  IF  PF=1  THEN  SOSUB  11 

50:?  CHR»(125) 
JE  160  AM«="":  POSITION  1,11: 
PRINT  "YOU  WILL  START 
HAND  ";HA;"." 
nP  190  PRINT  "Q  -  TO  QUIT" 
HJ  200  PRINT  "R  -  TO  RESTART 
BAME" SPRINT  DO?"  DOL 
LARS  LEFT" 
EL  210  PRINT  "PLACE 
tl4  SPACES)" 
15,  15 
flft220  GET  #1,A:IF  CtA)=B  TH 
EN  AM*=CHR» (A) :BOTO  3 
10 
ftD230  IF  A=155  THEN  340 
HF  240  IF  C<A><>9  THEN  270 
OG2S0  IF  LEN(AM»><2  THEN  AM 

»=■'".  QOTO  290 
DF260  AM»  =  AM»  (l,LEN(AM»>-n 

:GOTQ  290 
JL  270  IF  C(A)<>10  THEN  220 
HA  2B0  IF  LEN(AMS)<9  THEN  AM 
*(LEN(AM»)+1)=CHR*(A) 
110  290  POSITION  13,15:?  " 

{9  SPACES! ";: POSITION 
13,  15: ?  AM* 
GA  300  GOTO  220 
Bft310  IF  AM*="Q"  THEN  POKE 

752,0:END 
m320  IF  AM»="R"  THEN  RUN 
66  330  GOTO  340 
H6  340  AM  =  VAL  (AM*)  :  AM=INT  (  10 

0t (AM+5.0E-03) )/100 
KL350  IF  AM<0.01  THEN  BDSUB 
1080:PRINT  "YOU  CANN 
DT  BET  ZERO  DOLLARS": 
BDSUB  1150:BOTO  170 
CB360  IF  AM>DD  THEN  GOSUB  1 
080:PRINT  "YOU  DO  NOT 
HAVE  THAT  MUCH  MONEY 
":BOSUB  I150:8OTO  170 
Bl  370  Z2  =  0:  Z  1=0:  DE=0!  01=0!  D 
2=0: P=0: 03=0: CL=0:JK= 
0:HI='0:BU=0:SO  =  0:DD  =  0 
: 3P  =  0: QQ  =  0S  PF  =  0 
KE  380  SI=0:  QP  =  0:  SP  =  0;  BI=0:  O 
1=0:02  =  0: PL  (0) =0! PL ( 1 
)=0:PL (2) =0:PL (3) =0:P 
L(4)=0:SE=0 

March,  1988     COMPUTEI      3? 


BET 
I  POSITION 


=  A(l!D  =  0S  PR  =  0:O1  = 
:a2=01 : PRINT  CHR 
) : V=l :H=2! Z2=DE: 

990:DE=Z2!D=Z1 : 
D2=A1 : V=7!H=2sG0 
060:P1=A: P2=fll 
=1:Q0SUB  1070:D3 
6:V-=7iSaSUB  1060 

1  TO  SsPOSITION 
?  CHR* ( 160) ; CHRS 
;CHR*  CI60)  : NEXT 


Pl=12  AND  P3<1Z  AN 
3>7  OR  P3=12  AND  P 
2  AND  Pl>7  THEN  13 


OC390  PO( 

DO- 

«  (  1 

Zl  = 
0)400'  GQS 

Dl 

SUB 
IE410  H-6 

=  A 

:P3 

Ml  420  FOR 

2, 

<16 

I 
HO  430  IF 

D  P 

Kl 

40 

DK  440  BOSUB  1190:  IF  IN>0  TH 

EN  IN=0:BaTO  150 
HO  450  GOSUB  1080:PRINT  "  H 

HIT   S  STAND   P  SPLIT 

"t?  "D  DOUBLE   E  SURR 

ENDER" 
HI  460  GET  #1  ,  OP:  JK=C(DPJ 
10  470  IF  JK  =  0  OR  JK>5  THEN 

460 
LE  4B0  ON  JK  GOTO  490,600,61 

0, 700, 750 
PD490  HI  =  1:GDSUB  500 
HHS00  IF  DD=1  THEN  H=i0:6DS 

UB  1060:DD=2! SD=1;BDS 

UB  580 
tH510  IF  SD=-1  THEN  SD  =  0:H=6 

:  V  =  V  +  3;  HI-=0:GDTD  540 
CC  520  IF  Bl  =  l  THEN  B1=0:BOT 

a   450 

LP  530  H-=H  +  4!  BOSUB  1060:  QOSU 

B  SB0: Bl=l: GOTO  S00 
Efl 540  IF  SP>0  THEN  SP=SP-1: 

S1  =  S1  +  1:QP=GIP-1  :P  =  0!E 

OTO  560 
80  550  GOTO  830 
6K  560  IF  J(S1)  =  1  THEN  J(S1) 

=0:P=1 
A6S70  GOSUS  1060;  B1  =  1:G0T0 

500 
OH  590  IF  BU=1  THEN  POSITION 
34,V!PRINT  "BUST"sSD 

-l!DD=2:BU  =  0:  HI=0 
HO  590  RETURN 
M 600  POSITION  33,V:PRINT  " 

STAND" ! SD=1 : SOTO  510 
IC610  IF  HI  =  1  THEN  GOSUB  10 

e0:GOSUB  6a0:QOSUB  11 

50: SOTO  450 
EH  620  IF  AOPl  THEN  GOSUB  1 

0a0:PRINT  "CARDS  MUST 
BE  SAME  DENOMINATION 

■•:?  "TO  SPLIT"!  QOSUB 

tlS0:GDTD  450 
CH  630  IF  Dl-AMCa  THEN  BOSUB 
1080: GOSUB  690:eOSUB 
1150!BOTD  450 
DE  640  D1=D1-AM:  SP  =  SP+1  :aa=B 

Q+l : DP»QP+13PL(S1+QP) 

=B: PB(S1+QP)=AM:PL (SI 

)-B 
M650    QV  =  V:PF=1 
SJ660     IF    P>0    THEN    P=1:J(S1  + 

QP!  -1 
PE  670    H=2:  V  =  7  +  QQ«3:  GOSUB     11 

00: V°QV: H°6: GOSUB  106 

0:BDTD  450 
1*680  PRINT  "YOU  MAY  SPLIT 

WHEN  FIRST  TWO  CARDS" 

s?  "ARE  THE  SAME  AND 

YOU  HAVE  NOT  HIT": RET 

URN 
FK690  PRINT  "NOT  ENOUGH  MDN 

EV  FOR  THE  SPLIT" :RET 

URN 
HO  700  IF  HI  =  1  THEN  SDSUB  10 

a0:Ga5UB  730:GO5UB  11 


HH  7  10 
CJ  720 

AC  730 

DJ  740 

IC  730 

flC  760 

OH  770 
CO  780 

W  790 

ei  800 

PH  S10 
FK  820 
EE  830 

fC  840 

He  850 

OH  66  0 

CK  870 
6A  S80 

ir  890 

6B  900 

IN  910 

Fll  920 

CP  930 
NH  940 
IH950 


GO  960 
LI  970 


00  980 
19  990 


CO  1000 
KB  1010 


50: GOTO    450 

IF     DD=1     THEN     GOSUB     10 

B0:GO5UB    740:GOSUB     11 

50: GOTO    450 

PG(S1  )=-AM/2:PL<Sl  >=0: 

SD=1 I SE=l:POSITION  30 

,V:PRINT  "SURRENDER": 

GOTO  500 

PRINT  "YOU  CANNOT  SUR 

RENDER  SINCE  YOU  ALRE 

ADY";?  "HIT  ON  THIS  H 

AND": RETURN 

PRINT  "YOU  CANNOT  SUR 

RENDER  SINCE  YOU  DDUB 

LED":?  "DOWN  ON  THIS 

HAND" 

IF  HI=1  THEN  BOSUB  10 

80:GO5UB  810:8OSUB  11 

S0tBaTO  450 

IF     P>0     THEN     AZ  =  PL(Sn 

-10:GOTO    780 

AZ  =  PL  (SI) 

IF  O1-AM<0  THEN  SDSUB 

10B0:6OSUB  e20:GOSUB 

11S0:GDTO  4S0 
IF  P>0  THEN  PL(S1>=PL 
(SU-10 

PG (SI )=PG(S1 ) +AM:PDSI 
TION  27,V:PRINT  "DOUB 
LE  DOWN": DD=l!01=01-A 
M:GOTO  500 

PRINT  "SORRY  YOU  ALRE 
ADY  HIT  ON  THIS  HAND" 
; RETURN 

PRINT  "NOT  ENOUGH  HON 
EY  TO  DOUBLE  DOWN": RE 
TURN 

A  =  D1: A1=D2?  V= 1 ! H  =  2i80 
SUB  1100:H=6; IF  BJ=1 
THEN  BJ=0:BOTD  900 


IF  D 

TO 
:  GOT 
IF  S 
THEN 
IF  S 

SE  = 
IF  D 
H  =  H  + 

870 
IF  D 
N  34 
V  =  7 
IF  D 

OR 
>  AN 
OSUB 
IF  D 

OR 
1  OR 
22  T 
IF  D 

THE 
iPRI 
DO  =  D 
T  I: 
0E-0 
GOSU 

13 
,J> 
R=l 
GOTO 
POSI 

"LO 
RETU 
POSI 

.,  y 

T  =  FR 
(1)  ) 
1)  :  I 
990 
CH( 
A  +  2 
IF 


E=21  THEN 
3: PL(SG) = 
0  900 
Kl  AND  P 

900 
Kl  AND  S 
0!BDTO  90 
E>16  THEN 
4:GDSUB  1 


E>21 

,V+1 

FOR 

E>21 

DE<2 

D  PL 

980 
E<22 
DE<2 

DE> 
HEN 
E<22 
N  PO 
NT 
0  +  PG 
DO=I 
3)  )  / 
B  10 
FOR 
0:NE 


THEN 
:  PRIN 

1  =  0  T 
AND 

2  AND 
(1X2 

AND 
2  AND 
21  AN 
SDSUB 

AND 
SITID 
PUE]H" 
(  I  )  :  V 
NT(  10 
100 
80:  FO 
J=l  T 
XT    J 


FOR  1=0 
0:NEXT  I 

L (0>  >21 

E=l  THEN 
0 

B90 
070:GOTO 

POSITIO 
T  "BUST" 
0  Si 
PL (I) <22 

DE<PL{ I 
2  THEN  G 

DE>PL(I) 
PLtl ) >2 

D  PL( I ) > 
970 

DE=PL ( I ) 

N  34,V+1 
PQd)  =0 
V+3:NEX 

0t (DO+5. 

R  1=1  TO 
0  4:CH(I 
NEXT  I;P 


150 
TION  34, V 
SE":P8( I ) 
RN 

TION  34, V 
IN"!RETUR 
E(0> : A°IN 
! A1=INT (4 
F  CH(A,A1 

A  ,  A  1  )  =  1  J  B 
>9  THEN  B 
A+2=14  TH 


+1:PRINT 
PB( I ) : 

+1:PRINT 
N 

T(13»RND 
«RND( 1 )+ 
)=1  THEN 

=A+2: IF 

=  10 

EN  B=ll 


88  1020  IF  B-11  THEN  Z1  =  Z1  +  1 
Ef  1030  Z2=Z2+Bs  IF  Z2>21  AND 
Z1>0  THEN  Z2«Z2-10: 
Z1=Z1-1 
LF  1040  IF  Z2>21  THEN  BU=  1 
CS  1050  RETURN 

At  1060  Z2  =  PL(S1  )  :  Z1=P:S0SUB 
990!PL(SU=Z2iP  =  Zl: 
BDSUB  1100:RETURN 

CE  1070  Z2  =  DE:  Z1»D:G0SUB  990 

:DE=Z2: D=Z1:G0SUB  11 

00:RETURN 
06  1090     CL=19:FDR     ZZ  =  CL     TO     2 

2:P0SITiaN    0,ZZ 
HH  1090    PRINT     "{39    SPACES>":N 

EXT  ZZiPOSITION  0,CL 

: RETURN 
LH1100  POSITION  H,V:?  "    ": 

POSITION  H,V+l:?  " 

"iPDSITION  H,V:?  R* ( 

A+1 , A+1 ) ;CHR* (160)  ;  C 

HR«  (  160} 
PH1110  POSITION  H,V+1:7  CHR 

«  (160>  ;S« (Al , Al)  ;CHR 

« (160) 
ED  1120  POSITION  H,V+2:?  CHR 

S( 160} ; CHR« (160} ; R« ( 

A+1 , A+1 ) 
ftfll30  REM  PLACE  CARD  IN  SP 

OT 
Hi   H40  FSETURN 
(IE1150  POSITION  13,22:PRINT 

"PRESS  ANY  KEY"; 
6(1  1160  POKE  764,255 
JL1170  A  =  RND(1):IF  PEEK(764 

)<>255  THEN  1080 
HH  1180  GOTO  1  170 
LK1190  IF  D3012  THEN  RETUR 

N 
M  1200  BOSUB  1080: PRINT  "WA 

NT  INSURANCE  Y  N" 
HL  1210  BET  #1,Y:YA  =  C{Y) 
Fl  1220  IF  YA-6  THEN  1250 
HC  1230  IF  YA  =  7  THEN  RETURN 
(IE  1240  GOTO  1210 
PC  1250  IF  Q2-AM/2<0  THEN  GO 

SUB  1080SQOSUB  1310: 

BOSUB  1150:RETURN 
HS1260  IN  =  AM/2:  02  =  G2-AM/2:D 

0-DO-IN: IN=0 
tJ  1270  IF  DE021  THEN  QOSUB 
1320: IN=0:6QTO  1300 
*L  1280  A  =  D1:  A1=D2:  V=l  :H  =  2:6 

OSUB  1100:GOSUB  1060 
m   1290  PRINT  "DEALER  HAS  BL 

ACKJACK  YOU  LOSE  YOU 

R":?  "INSURANCE  MONE 

Y  AND  SAVE  BET, " : 60S 

UB  1150:IN=1 
KE  1300  RETURN 
DB  1310  PRINT  "YOU  DO  NOT  HA 

VE  ENOUSH  MONEY  TO  I 

NSURE":?  "YOUR  BET.  " 

:RETURN 
EC  1320  GOSUB  1080:  PRINT  "DE 

ALER  DID  NOT  BET  BLA 

CKJACK  YOU  LOSE"; 
flJ  1330  PRINT  "INSURANCE  MON 

EY  AND  HAND  CONTINUE 

S":BOSUB  H50:RETURN 

BE  1340  POSITION  30,V:PRINT 
"BLACKJACK":PG<B1 ) =1 
.S«AM: BJ=1: GOTO  830 

P6  1350  POSITION  l.lSsPRINT 
"YOU  ARE  OUT  OF  MONE 
Y" 

KF  1360  PRINT  "WISH  TO  PLAY 
AGAIN  (Y/N)?" 

IC  1370  GET  #1,Y:YA  =  C(Y) 

CL  13B0  IF  YA  =  6  THEN  130 

ra  1390  IF  YA  =  7  THEN  POKE  75 
2,0: END 

HJ  1400  GOTO  1370 
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Program  6:  PC/PCjr  And 
Compatible  Casino 
Blackjack 

Version  by  George  Miller,  Editorial 
Programmer 

HI    10    '    COPYRIBHT  (C)  198B  COMPU 

TEI  PUBLICATIONS,  INC. 
FC  20  ■  ALL  BIGHTS  R 

ESERVED 
QK  30  KEY  OFFzDEF  SE6=0:DEFINT  A 
-ZiDEFDBL  BrPQKE  1047, PEEK 
tl047!  OR  64:RAND0t1IZE  TIM 
ER:SP«=SPACE*('*0) 
DK  40  DIM  CD*(52)  ,V*(13)  ,M(52) 
1ft  50  SCREEN  0,1: WIDTH  40: COLOR 

2,2:CLS:B0SUB  390:CLB:Hft=l 
NO  60  SP=0:DT1=0:DT2=0:PT1=0:PT2 
=0!COLOR  15,10:CLS:IF  BAO 
0  THEN  SOTO  B0  ELSE  COLOR 
15, 2: CLS: LOCATE  10,10:PRIN 
T"SDrry,  you  are  broke. ";L 
DCATE  12,lZ:PRINT"Play  aga 
in?  (Y/N)  •■:GOSUB  950 
BN  70  IF  At="Y"  THEN  GOTO  50  ELS 
E  IF  A»="N"  GOTO  960  ELSE 
BGTO  70 
U  B0    H=0:GaSUB  230: COLOR  0,2:LO 
CATE  3, 13:PRINT"Playing  Ha 
nd  #";: PRINT  HA 
K   90  LOCATE  5, 5: COLOR  15: PRINT" 
Cash  remaining  ";;PRINT  US 
INB  "«S#tt»»4t«#«tt#.tt#";BA 
LK  100  LOCATE  10,14:COLOR  4,7:PR 
INT"  Q  '■:  LOCATE  12,  14!  PR  I 
NT"  R  ": COLOR  15, 2: LOCATE 
10,  18!  PRINT"QLilt":LOCATE 
12, ie:PRINT"Restart  game 
":LOCATE  15, 10; INPUT"¥our 
bet ,  pi  ease " ; BET* 
GB  110  IF  BET*="R"  THEN  GOTO  50 

ELSE  IF  BET«="Q"  GOTO  960 
FC  120  BET»'VAL(BET$):  IF  BET=0  TH 
EN  COLOR  4;LDCATE  17,11:P 
RINT'Tlease  bet  again. ":Q 
OSUB  420:8010  60 
PN  130  IF  BET>BA  THEN  LOCATE  17, 
7:C0LDR  4:PRINT"You  only 
have  *";BA;"  remaining.": 
LOCATE  18, 12:PRINT"Plea9S 
bet  again. ":GDSUB  420;BD 
TO  60 
CD  140  BDSUB  360:  CLS:  LOCATE  23,1 
: COLOR  15,0:PRINT"   it   t 
and  S  lit   ouble  down   Su 
rr    nder  "; 
J£  150  COLOR  4,0:  LOCATE  25,2:PRI 
NT"H"; :LOCATE  25,6:PRINT" 
S";: LOCATE  25, 13: PRINT"p" 
;:LOCATE  25, 18: PRINT"D"  ;  : 
LOCATE  25,35:PRINT"e"; :S0 
SUB  230:EDSUB  430 
a    160  IF  H=l  THEN  6QSUB  420S  BO  I' 

0  60 
Of  170  60SUB  950:H=0:IF  A*="H"  T 

HEN  GOSUB  560 
n    180  IF  A*="P"  THEN  GOSUB  6H0 
t;0  190  IF  A*="S"  THEN  BDSUB  590: 

BOSUB  240: GOTO  60 
K   200  IF  A»="D"  THEN  GOSUB  830: 

GOTO  180 
KP  210  IF  A*="E"  THEN  BA=BA-BET« 

.5: GOTO  60 
Dft  220  IF  H=l  THEN  GOSUB  420: GOT 

0  60  ELSE  GOTO  170 
CJ  230  LOCATE  1,12:  COLOR  14,  4:  PR 
INT"  CASINO  BLACKJACK  ":R 
ETURN 
no  240  IF  SP=1  THEN  BDSUB  330 
CE  250  IF  DT1<=21  THEN  DT=DT1  EL 

SE  DT=DT2 
KE  260  IF  DT2>DT1  AND  DT2<=21  TH 
EN  DT=DT2 


OS 

270 

n 

280 

m 

290 

lh 

300 

W 

310 

m 

320 

PI 

330 

HK  340 


KH  330 
NJ  360 


PO  370 


FK  380 


EL  390 


FD  400 


AE  410 


m  420 

K   430 

K   440 


IJ  450 
00  460 


m  470 

G6  400 


490 


m  500 


IF  PT1<=21  THEN  PT=PT1  EL 

SE  PT=PT2 

IF  PT2>PT1  AND  PT2<=21  TH 

EN  PT=PT2 

COLOR  15, 10: IF  DT=PT  THEN 

LOCATE  12, 10:PRINT"Push, 

No  winner. " 
IF  DT>PT  AND  DT<=21  THEN 
BOSUB  920:BA=BA-BET 
IF  PT>DT  AND  PT<=21  THEN 
GOSUB  930:BA=SA+BET 
GOSUB  420: RETURN 
IF  VTK21  AND  VT1>PT1  THE 
N  PT1=VT1 

IF  VT2<2i  AND  VT2>PT2  THE 
N  PT2=VT2 
RETURN 

COLOR  15, 2: CLS: LOCATE  15, 
13:PRINT"Shuf fling  Deck.. 
.":FOR  1=1  TO  52:M(I)=IlN 
EXT:FOR  1=1  TO  52:X=INT(5 
2«RND) +1 : TP=M  1 1 ) : M ( I ) =M ( X 
)  :M(X)-=TP:NEXT:HA=HA+l!RE 
TURN 

IF  TP*="  "  THEN  COLOR  0 
,4  ELSE  IF  ASC(MID«(TP»,2 
,1))<=4  THEN  COLOR  4,7  EL 
SE  COLOR  0,7 

LOCATE  XL, YL: PRINT  TP*:FD 
R  Y=l  TO  2: LOCATE  XL+Y,YL 

:  PRINT NEXTs  LOCATE  X 

L+3,YL: PRINT  "  "; LOCATE  X 
L+3,YL+1: PRINT  MID»(TP»,2 
, 1 ) : LOCATE  XL+3, YL+2: PRIN 
T  LEFT»(TP», 1) :RETURN 
RESTORE  970: FOR  X=0  TO  3: 
FOR  T=l  TO  13! READ  CD*<X« 
13+T ) : CD* ( X* 13+T) =CD* ( X»l 
3+T) +CHRS ( X+3) +CHR* (32) : N 
EXT: RESTORE  970: NEXT: REST 
ORE  970: FOR  T=13  TO  1  STE 
P-1:READ  V»CT):NEXT 
XL=5: YL=16: TP«=CDS (1 ) : EOS 
UB  370 : XL=5 ! YL=20 : TP»»CD» 
C 43)1 BOSUB  370 
COLOR  15,2: LOCATE  1 1 , 1 2: P 
RINT"CasinD  Black jack"!CO 
LOR  1,2: LOCATE  15, 4: PRINT 
"Copyright  1988  COMPUTE! 
Pub.,  Inc."!LQCATE  16,11: 
PRINT" All  Rights  Reserved 
"!HA=0:PX(0)=18:PY(01=0iP 
X(l)=5:PY(n=-2:F0R  X=0  T 
0  1:  GOSUB  420:  NEXT:  BA''100 
: RETURN 

FOR  T=l  TO  6000: NEXT sRETU 
RN 

P=0:D=0:FOR  C=l  TO  4: IF  C 
=2  THEN  TP«="  "  ELSE  TP 
«=CD«(M(C) ) 

IF  INT(C/2)<>C/2  THEN  XL= 
PX (0) : YL-PY ( 0) +2«Ci  PL* (P) 
=CD»(M(C) ) :P=P+l  ELSE  XL= 
PX ( 1 ) : YL=PY ( 1 ) +2»C! DL» (D) 
=CD»(M(C) )5D=D+1 
GOSUB  370: NEXT: GOSUB  860 
IF  LEFT*(DL*(1)  ,  n="A"  TH 
EN  LOCATE  l2,t0:COLOR  15, 
2!PRINT"Purchase  insurant 
e?  (Y/N) "  ELSE  BDTO  530 
GDSUB  950 

LOCATE  12,1:PRINT  SP»! IF 
A«="y"  GOTO  490  ELSE  IF  A 
»<>"N"  GOTO  460  ELSE  BDTO 

530 
IF  BA-BET-BET».5<BA  THEN 
INS=1:BA=BA-BET«.5  ELSE  L 
DCATE  12,1: PRINT" Ydu  can' 
t  af-ford  insurance.  ":BOSU 
B  420: LOCATE  12,1} PRINT  S 
P* 

BDSUB  660: IF  DTI =21  THEN 
GOSUB  670:SOSUB  620: GOSUB 

420:  IF  INSOl  THEN  BA=BA 
-BET: GOTO  60  ELSE  BDTO  60 


NP 

580 

m 

590 

DL 

600 

<i 

610 

A6 

620 

PF  510  LOCATE  12,  1 :  PRINT"Dealer 
does  not  have  Blackjack." 
! PR I NT "Hand  continues." 

UK  S20  GDSUB  420:  LOCATE  12,1:  PR  I 
NT  SP»: LOCATE  13, l! PRINT 
SP» 

PJ  530  IF  PT1=21  AND  P=2  THEN  LO 

CATE  19, 10! COLOR  31,2sPRI 

NT"BLACKJACK ! " : BOSUB  670; 

GOSUB  6601  IF  DT1021  THEN 

BA=BETt 1 . 5+BA: H= 1 1  RETURN 

CO  540  IF  DTI  =21  AND  PTl-21  THEN 

LOCATE  6, 10! COLOR  31, 2: P 

RINT"BLACKJACK!"!COLOR    15 

,10: LOCATE  12, 10:PRINT"Pu 

sh,  no  winner":H=l!RETURN 

NJ  S50  RETURN 

EL  560  C=C+1:PL»(P)=CD*(M(C) ) :TP 
S=PL* (P) : P=P+l! XL=PX (0) 1 Y 
L=(PY(0)+4«(P))-2 

HB  570  GDSUB  370: GDSUB  860: IF  PT 
1>21  AND  PT2>21  THEN  LOCA 
TE  PX(0)+1, (PY(0>+4«(P))+ 
4  s  COLOR  1 5 , 2 : PR I NT " BUSTED 
I": IF  SP-0  THEN  GOSUB  920 
: BA=BA-BET : BOSUB  670 : BOSU 
B  420: H=l  ELSE  SP=0:RETUR 
N 

RETURN 
GOSUB  670 

COLOR  15, 2: LOCATE  19, (PY( 
0) +4* (P)) +4: PRINT "Stand" 
BDSUB  660: IF  DT1=>17  THEN 

RETURN 
IF  DTI =21  AND  D=2  THEN  LO 
CATE  6, 10: COLOR  31, 2; PRIN 
T"BLACKJACK!":H='lsSa3UB  4 
20: RETURN 

ID  630  C=C+1:DL*(D)=CD«(M(C)  )!TP 
»=DL* (D) : D=D+1 ! C=C+1 : XL=P 
X(l)iYL=(PY(l)+4t(D) ) 

DO  640  GDSUB  370:6DSUB  660:  IF  DT 
1>21  AND  DT2>21  THEN  LOCA 
TE  PX(1)+1, (PY(1)+4«(D))+ 
4: COLOR  15, 2: PRINT"BUSTED 
l":eaSUB  930!BA=BA+8ET:DO 
SUB  420: H=l: RETURN 

Fl  650  GOTO  610 

HN  660  DT1=0:DT2=0:V1=0:V2=0:FOR 
X=0  TO  D-1:E«=DL*(X):B0S 
UB  870:DTl=DTl+Vl!DT2-DT2 
+V2i NEXT: RETURN 

31  670  XL=S:YL=2:TP*=DL»(0) !GDSU 
B  370! RETURN 

PH  680  IF  LEFT*(PL»(0) ,1)<>LEFT« 
(PL«(1),1>  THEN  RETURN 

!H  690  SP=lsXL=PX(0):YL=PY(0)+2t 
(C-2):TP»«"  ": COLOR  1 5 , 
2: BOSUB  380 

HL  700  PX(0)=PX  (0)-5:XL=PX(0):YL 
=PY  (0)  ^■2*  (C-4) :  TP«=PL*  ( I  > 
sSOSUB  370:T=P 

LP  7 10  TEMPt=PL«  ( 0 )  :  PL*  ( 0  >  =PL*  ( 1 
) sPL«(lJ=CD«(M(C)) :C=C+1: 
TP«-PL* ( 1 ) : YL=PY (0) +3* (P) 
: GOSUB  370: GOSUB  860 

EC  720  GOSUB  790:  IF  PT1>21  AND  P 
T2>21  THEN  BOSUB  800: BDTO 
740 

LO  730  IF  AS="S"  THEN  VT1=PT1:VT 
Z=PT2;XL=14! GOSUB  810: BDT 
D  740  ELSE  GOTO  720 

SK  740  PX(0!=PX(0)+5:PL»(0)=TEMP 
«!C=C-H:PL*(1)=CD»(M(C))  : 
P=T: TP«=PL* ( 1 ) ! XL=PX (0> : Y 
L=PY ( 0) +3* ( P ) : GOSUB  370 ! 8 
OSUB  860 

m   750  BOSUB  790: IF  PT1>21  AND  P 
T2>21  THEN  BDSUB  B00:GQTD 
780 

El  760  IF  A*="S"  THEN  XL- 19: BOSU 
B    810:  GOTO   7B18 

ID  770    BDTO    750 

SK   780    BDSUB   670:  BDSUB    610:  BOSUB 
2401 H=l: RETURN 
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jn  790  GOSUB  950:  IF  A»="H"  THEN 

GDSUB  820:RETURr4  ELSE  RET 

URN 
CE  800  LOCATE  PX  (0) +1 ,  (PY  C0) +4»  C 

P)) +4: COLOR  15, 2: PRINT"Bu 

sted!  ■':  RETURN 
CE  B10  LOCATE  XL,  CPY  C0) +4*  (P)  ) +4 

srCQLDR  IS,  2!PRINT"St«nel" 

t  RETURN 
IE  B20  C=C+l:PL*(P)=CD$CM<Cn:TP 

»»PL»  tP) : P=P+1 : XL-PX (0) : Y 

L=(PY(0)+4«(P) )-2!PTl=0:P 

T2=0:GOBUB  370:OQSUB  B60i 

RETURN 
M  830  60SUB  860:  IF  PTK10  OR  PT 

1>11  THEN  A*="": RETURN 


nC  840  LOCATE  12,10:COLOR  31,2:P 

RINT"DQuble  Down!":BET=BE 

T«2!603UB  560:A«="S":RETU 

RN 
NH  850  RETURN 
BD  860  PT2=0:PT1=0:FOR  X=0  TO  P- 

1:6«=PL»(X>: GOSUB  870: PTl 

=PT1+V1:PT2-PT2+V2:NEXT:R 

ETURN 
EP  870  V1=0:V2=0:FDR  Y=l  TO  13:1 

F  LEFT»(Q«, 1)=V«(Y)  THEN 

V=Y+1 
KP  860  NEXTsTF  V=14  THEN  V1=11:V 

2=1:GDT0  910 
KC  890  IF  V>10  THEN  V1  =  10:V2=10: 

GOTO  910 


KA  900  V1=V1+V:V2=V2+V 

RF  910  RETURN 

CH  920  LOCATE  6,  (PY  (1  > +4*  (D)  ) +4: 

COLOR  31,2:PRINT"Hause  Wi 

ns!":RETURN 
PA  930  IF  SP=1  THEN  XL=17:YL=10 

ELSE  XL=19:YL=PY(0)+4*(P) 

+4 
CE  940  COLOR  31,  2:  LOCATE  XL,YL:P 

R I NT " Wi  nrer ! " : RETURN 
IE  9S0  A*="":A»=INKEY*:IF  A«="*" 

THEN  950  ELSE  RETURN 
flD  960  SCREEN  0,0,0: WIDTH  B0:CLS 

:END 
£J  970  DATA  A,  K,  Q,  J,  T,  9,  8,  7,  6,  5, 

4,3,2 


"Sorry,  you  are  br 


Program  7:  Amiga  Casino  Blackjaci< 

Version  by  George  Miller,  Editorial  Programmer 

Blackjack: * 

'Copyright  1988  COMPUTEl  Publications,  Inc.* 

"All  Rights  Reserved-* 

DEFINT  a-z:DEFSNG  r , g , b, cy : RANDOMIZE  TIMER* 

DIM  cd5(52),v?(13),m(52},sb(36,3>,card(507,4)* 

sp5=SPACE$(40)-< 

SCREEN  1,32O,2O0,4,1:WINDOW  3 , " " , ( 0 , 0 ) - ( 31 1 , 186 ) 

,16,1:WIND0W  OUTPUT  3:  COLOR  3  ,  0-« 

Start :s=l :GOSUB  DoScreen iGOSUB  InitiaLize:GOSUB 

DispLay* 

Main:  IF  sol  THEN  GOSUB  HoLdscrn* 

COLOR  , 10: CLS: GOSUB  TitLe :h=0 : sp=0 s 3=0* 

IF  ba<>0  THEN  « 

GOTO  Dolt* 

ELSE* 

LOCATE  10, 10: COLOR  4, 10: PRINT 

oke!":LOCATE  12,12* 

PRINT  "Play  again?  (Y/N)"* 

Answer:GOSUB  GetKey* 

IF  a5="Y"  THEN  GOTO  Start  ELSE  IF  a5="N"  THEN  GO 

TO  EndGame* 

GOTO  Answer* 

END  IF    * 

Dolt: COLOR  7, 10: LOCATE  6,12:* 

ba=INT(ba*100)/100* 

PRINT  USING  "  Bank  =  55f ######.##" ;ba  * 

LOCATE  8,12:PRINT  "Playing  Hand  # "+STR? (ha+1)* 

LOCATE  10,15:COLOR  11,15:PRINT  "  Q  ": LOCATE  12,1 

5: PRINT  "  R  "* 

COLOR  11,10:LOCATE  10,19:PRINT  "to  Quit":LOCATE 

12,19:PRINT  "to  Restart"* 

GetBet:LOCATE  16,1:PRINT  3p?:COL0R  I,10:LOCATE  1 

6,5* 

INPUT  "Enter  your  bet" ;bet5:bet=INT(VAL(betS ) *I0 

O)/100* 

betS=UCASE5  tbet5 ) * 

IF  LEFT$(betS,l)="Q"  THEN  GOTO  EndGame* 

IP  LEFT5(bet$, 1)="R"  THEN  CLS: GOTO  Start* 

IF  bet<=0  OR  bet>ba  THEN  GOTO  GetBet* 

GOSUB  GameScreen:IF  h=I  GOTO  Main* 

ChecKeyiGOSUB  GetKey* 

IF  a?="P"  THEN  GOSUB  SpLit* 

IF  aS="D"  THEN  GOSUB  DoubLe* 

IP  a?i="H"  THEN  GOSUB  Hit* 

IF  a?="S"  THEN  GOSUB  Stand:GOTO  Main* 

IF  aS="E"  THEN  ba=ba-bet* . 5 :G0TO  Main* 

IF  h=l  THEN  h=0!GOTO  Main* 

GOTO  ChecKey* 

DeLay:FOR  i=l  TO  5000: NEXT: RETURN* 

Stand :GOSUB  ShowDeaLer: GOSUB  VdeaLer* 

IF    spol    THEN    COLOR   4,10:LOCATE    py+2 ,  pX :  PRINT    "S 

tand"sGOSUB  PvaLue:GOSUB  VdeaLer* 

IF  dtl=21  AND  d=2  THEN  LOCATE  dy+2 , dx i PRINT  "Bla 

Ckjackl" :h=l :ba=ba-bet: RETURN* 

DeaLerpLays:* 

IF  dtl>21  THEN* 

LOCATE  dy+2, dx: COLOR  4, 10: PRINT  " Busted  1 ": ba=ba+ 

bet:GOSUB  Pwin:h=l* 

RETURN* 

BSD  IP* 

IF  dtl<17  OR  dt2<17  THEN  GOSUB  GetCard :GOSUB  Vde 

aLer:GOTO  DeaLerpLays* 

GOSUB  CheckCards: RETURN* 

GetCard: FOR  t=  1  TO  3000: NEXT* 
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c=c+l:dl5(d)=cd$(m(o)  )  :tp5=dl?(d)  jd.sd+1  :c=c+l  :x= 

dx*e-l:y=dy*8-ll* 

xL=dx:yL=dyidx=dx+6 :a0SUB  ShowCard: RETURN* 

CheckCards;* 

IF  3p=l  THEN  GOSUB  SpLitHand* 

IF  dtl<=21  THEN  dt=dtl  ELSE  dt=dt2* 

IF  dt2>dtl  AND  dt2<=21  THEN  dt=dt2* 

IF  ptl<=21  THEN  pt=ptl  ELSE  pt=pt2* 

IF  pt2>ptl  AND  pt2<=21  THEN  pt=pt2* 

COLOR  4, 10: IF  dt=pt  THEN  LOCATE  12, 10: PRINT  "Pus 

h.  No  winner" :GOSUB  DeLay* 

IF  dt>pt  AND  dt<  =  21  THEN  GOSUB  HouseWiti:ba=ba-be 

t* 

IF  pt>dt  AND  pt<=21  THEN  GOSOB  Pwin :ba=ba+bet* 

RETURN* 

SpLitHand:* 

IF  vtl<=21  AND  ptl<=21  AND  vtl>ptl  THEN  ptl=vtl* 

IF  Vt2<=21  AND  pt2<=21  AND  vt2>pt2  THEN  pt2=vt2* 

RETURN* 

Hit:c=c+l:pl5(p)=cd5(m(c)):tp$=plS{p) :psp+l:x=px 

*8-l :y=py*8-4 : xL=px* 

yL=py+l :px=px+6* 

GOSUB  ShowCard: GOSUB  PvaLue* 

IF  ptl>21  AND  pt2>21  THEN  * 

LOCATE  py+2,px:C0L0R  4,10:PRINT  "Busted!"* 

IF  sp=0  THEN* 

GOSUB  ShowDeaLer: GOSUB  HouseWin:ba=ba-bet: GOSUB 

DeLay ;h=l* 

ELSE* 

sp=0* 

END  IF* 

END  IF* 

RETURN* 

DoubLe:* 

GOSUB  PvaLue:IF  ptl<10  OR  ptlHl  THEN  a$="":RETU 

RN* 

LOCATE  10,12:COLOR  4,10:PRINT  "Double  Downl":bet 

=bet*2:G0SUB  Hit:a$="S" :RETURN* 

ShowDeaLer : x-1 *8-l : y=5*8-H : XL=1 :yL=5 i tp?=dl? (0) 

: GOSUB  ShowCard: RETURN* 

Hou3eWin:L0CATE  dy+2 , dx : COLOR  4, 10: PRINT  "House 

Winsl " : RETURN* 

Pwin: LOCATE  py+2 , px : COLOR  4, 10: PRINT  "Winner 1":R 

ETURH 

* 
PvaLue :pt2=0:ptl=0: FOR  x=0  TO  p-1 : g?=pl$ { x ) :GOSU 
fl  VaLue:ptl=ptl+vl* 
pt2»'pt2+v2  :NEXT :  RETURN* 

VdeaLer:dt2=0:dtl='0:FOR  x=0  TO  d-I  :g$=dl5  (x)  :GOS 
UB  VaLue:dtl=dtl+vl* 
dt2=dt2+v2:NEXT* 
IF  dtl<21  THEN  dt2=dtl* 
IF  dtl>21  THEN  dtl=dt2* 
RETUEM* 

VaLue:vl=0:v2=0:FOR  y=l  TO  13* 
IF  LEFTS (gS, l)=v5(y)  THEN  V=y+1< 
NEXT* 

IF  V=14  THEN  vl^ll : v2=l :RETURN* 
IF  v>10  THEN  Vl=10:v2=10:RETURN* 
Vl=V: v2=v* 
RETURN* 
SpLit:* 

IF  LEFT?(pl5(0) , l)<>LEFTS(pl?(l) ,1)  THEN  RETURN* 
LINE(55,124)-(88, 160), 10,bf:r=0* 

c=c+l : sp=l ! px=l : py"10 : tp$=plS ( 1 ) : X=px*8-1 : y=py*a 
-4 :xL=px* 

yL=py+l : p=2 : GOSUB  ShowCard : px=px+6* 
tempS-plS (0 ) : pi? ( 0 )=pl5 ( 1 ) : pis ( 1) =cd$ (m( c ) ) : c=c+ 


x=px*8-l : y=py*8-4 : xL=px : yL=py+L : GOSUB  ShowCard : p 

x=px+6 ;* 

ptl=a:pt2=0:p=2 :GOSUB  PvaLue* 

SpLitLup:GOSUB  GetKey-4 

IF  a?="H"  THEM  GOSUB  SPHit* 

IF  a?="S"  AND  r=l  THEN   COLOR  4,10:LOCATE  py+2,P 

x:PRINT  "Stand"  :  RETURN-* 

IF  a?="S"  AMD  r=0  THEN  vtl=ptl : vt2=pt2:COLOR  4,1 

0:LOCATE  py+2 , px :PRINT  "Stand"  :GOSUB  SecondHand-< 

IF  ptl>21  AND  pt2>21  THEN  * 

LOCATE  py+2 ,  px : COLOR  4,10:PRINT  "Busted!  ": a$=" "•* 

IF  r=l  THEN  aS="S"  : RETURN ■« 

IF  r=0  THEN  vtl=ptl ; Vt2=pt2 iGQSUB  SecOndHand* 

END  IF* 

GOTO  SpLitLup* 

SPHit:c=c+l:pl5(p)=cd5(ro(c) ) :tp?=pI5(p) :x=px*8-l 

:y=py*a-4* 

xL=pX  :  yL=py+l :  px=px+6-« 

GOSUB  ShowCard :p=p+l: GOSUB  PvaLue* 

RETURN-* 

SecondHand:-* 

ptl=0:pt2=0:r=I:pxs7ipy=16:pl?[0)  =  tetnp$:c»c+l:pl 

$(l)=cd5(m(c)>ip=2-* 

tp?=pl$ ( 1 ) : x=px*8-l :y=py*8-4 : xL=px : yL=py+l : px=px 

+6:G0SUB  ShowCard: GOSUB  PvaLue : LOCATE  l,l:PRiNT 

ptl,pt2tRETURN-« 

GameScreen: GOSUB  Shuf  fLeCards  :CLS  :GOSUB  TitLe-t 

FOR  i=0  TO  3: j=i*2:LINE(l+j,168+j)-(310-j,190-j) 

,i+12,bf :NEXT< 

COLOR  2, 15: LOCATE  23, 3: PRINT  "it   tand   ouble-do 

wn  S  lit  Surr  nder"-* 

COLOR  12, 15: LOCATE  23, 2: PRINT  "H": LOCATE  23, 6: PR 

INT  '■S"iLOCATE  23,12:PRINT  "D"-* 

LOCATE  23,25:PRINT  "■p"jLOCATE  23,34!PRINT  "e":p= 

0:d=0-« 

dx=l!dy=5:px=l:py=16:FOR  i=l  TO  4:  tp$=cd$  (m{  i)  )-* 

IF  i=l  OR  i=3  THEN-* 

x=px*8-l  :y=py*8-4 :  xL=px  :yL=py+l :  px=px-»-6  :  pl$  ( p )  =t 

p$:p=p+l-< 

ELSE  -» 

x=dx*8-l : y=dy*a-ll : xL=dx : yL=dy :dx=dx+6 : dl? ( d ) =tp 

S:d=d+1* 

END  IF-* 

IF  i=2  THEN  tp?="   "-« 

GOSUB  ShowCard: NEXT :c=4'* 

Insurance  :■* 

IF  LEFT5(dl$(l)  ,1)  =  "A"  THEN-* 

LOCATE  12, 12: COLOR  4, 10: PRINT  "Purchase  insuranc 

e?  (Y/H)":G0SUB  GetKey-* 

LOCATE  12,1:  PRINT  Sp?:-* 

IF  aS  =  "Y"  THEN-* 

IF  bet-bet-taet*.5<ba  THEN-* 

ins=l :ba=ba-bet* .5* 

ELSE-* 

LOCATE  12,1; PRINT  "You  can't  afford  insurance.": 

GOSUB  DeLay-* 

LOCATE  12,1: PRINT  Sp$* 

END  IF-* 

ELSE-t 

IF  a?<>"N"  THEN-* 

GOTO  Insurance-*  ^ 

END  IF    -* 

END  IF-* 

GOSUB  VdeaLer:* 

IF  dtl=21  THEN  •* 

h=l: GOSUB  ShowDeaLer  : LOCATE  dy-l-2,dx: COLOR  4,10;P 

RINT  "Black  jackl  "  :GOSUB  DeLay :ba=ba-bet-* 

IF  insol  THEN  ba=ba-bet:  RETURN  ELSE  RETURN-* 

ELSE* 

LOCATE  12,8:PRINT  "Dealer  does  not  have  BlackJac 

k": GOSUB  DeLay* 

LOCATE  12,1:  PRINT  sp5-* 

END  IF* 

END  IF* 

GOSUB  PvaLue* 

IF  ptl  =  21  AND  p=2  THEM-* 

COLOR  4,10:LOCATE  py-l-2 ,  px  :  PRINT  "Black  jackl"  :h>=l 

tGOSUB  ShowDeaLer: GOSUB  VdeaLer* 

IF  dt2<>21  THEN* 

ba=bet*1.5-l-ba:  GOSUB  DeLay :  RETURN* 

ELSE* 

LOCATE  dy-f2,dx  SPRINT  "Black  jackl"  :LOCATE  12,10:P 

RINT  "Push,  No  winner" sh=l: GOSUB  DeLay* 

END  IF* 


END  IP-* 

GOSUB  DeLay* 

RETURN* 

ShowCard : * 

IF  tp9="   "  THEN  PUT  (x,y),card{0,4) ,PSET:BETURN 

-< 

j=ASC( RIGHTS (tpS.l) )-65* 

PUT  (x,y),card(0, j),PSET:COLOR  1,4* 

LOCATE  yL,XL-H:PRINT  LEFT?  {  tp?  ,  1 )  :1.0CATE  yL-(-3,xL 

-K4:  PRINT  LEFTS  (tp$,l)* 

RETURM* 

TitLe:FOR  i=0  TO  3:  j=i*2iLINE(64-H  j  ,  j  )-(256- j  ,  23- 

i)  ,i-H2,bf  :NEXT* 

COLOR  2,15:  LOCATE  2,13:PRINT  "Casino   Blackjack 

": RETURN* 

GetKey:a5=INKEY?* 

IF  a?<>""  THEN* 

aS=UCASE?(a$)* 

ELSE* 

GOTO  GetKey* 

END  IF* 

RETURN* 

ShuffLeCardesFOR  i=l  TO  52 :m(i)=i:NEXT: FOR  i=l  T 

0  52:X=INT(52*RND)+1* 

tpsm{i) :m(i)=m(x) im(x)=tp!MEXT!CLS:ha=ha+l :RETUR 

N* 

InitiaLize:ha=0!GOSUB  InitShapes!ba=100: RESTORE 

cards: FOR  x=0  TO  3* 

FOR  t=l  TO  13:READ  cd?  (  X*13  +  t )  :  cd?  C  x*13-ht )  =cd5  (  X 

*13+t)+CHRS(x+65)* 

NEXTtRESTORE  cards : NEXT: FOR  t  =  13  TO  1  STEP-1:R 

EAD  v?Ct) :NEXT: RETURN* 

cards: DATA  A, K, Q, J, T, 9, 8, 7, 6, 5, 4, 3, 2* 

DispLay;WIDTH  40:CLS:COLOR  ,0* 

FOR  x=0  TO  3:LINE  ( 80+x*2 , 40+x*2 ) - ( 225-x*2, 63-x* 

2},12+x,bf :NEXT* 

COLOR.2,15:LOCATE  7,12:PRINT  "Casino  Blackjack"* 

COLOR  2,10:LOCATE  12,4: PRINT  "Copyright  1988  COM 

PUTEl  Pub.,  Inc."* 

LOCATE  13,ll!PRINT  "All  Rights  Reserved" :FOR  x= 

1  TO  10: GOSUB  DeLay: NEXT* 
COLOR  4,0: RETURN* 

InitShapes : RESTORE  InitShapes ;check=0* 

LINEC4,4)-t37,40) ,12,bf:GET  (4, 4)-( 37 , 40) ,card(0 

,4): FOR  j=0  TO  3 : FOR  i=0  TO  30* 

READ  a5:sb(i,  j  )=VAL(  "£.H"+a?  )  :check=check-t-sb(  i,  j) 

:NEXT  i,j* 

IF  check-: >  1787436.  THEN  PRINT  "Error  in  Shape  Dat 

a": GOSUB  DeLay: STOP* 

FOR  j=0  TO  3* 

LINE (4, 4)- (37, 40) ,4,b£:PUT  ( 14, 6 ) , 3b( 0 , j ) , PSET: P 

UT  (17,30),sb(0, j),PSET* 

GET  (4,4)-(37,40) ,card(0, j) :CLS:NEXT  j: RETURN* 

diamond : DATA  B , 9, 3 , 400 , E00 , 1F00 , 3Fa0 , 7FC0* 

DATA  3F80 , 1F00 , E00, 400 , 400 , E00 , 1F00 , 3F80* 

DATA  7FC0, 3F80, lF00,E00,4a0,FBE0,FlE0,E0E0* 

DATA  C060 , 8020 , C060 , E0E0 , F1E0 , FBE0 , 0* 

CmbiDATA  B, 9, 3, 0,0, 0,0,0* 

DATA  0,0,0,0,E00,1F00,1F00,7FC0* 

DATA  FFE0 , FFE0 , 7 5 C0 , E00 , 1 F00 , F1E0 , E0E0 , E0E0* 

DATA  e020,0,0,8A20,FlE0,E0E0,0* 

Heart : DATA  B , 9 , 3 , 7 1C0 , FBE0 , FFE0 , FFE0 , 7FC0* 

DATA  3Fa0 , 1F00 , E00 , 400 , 71C0 , FBE0 , FFE0 , FFE0* 

DATA  7FC0 , 3Fa0 , 1F00 , E0a , 400 , 8E20 , 400 , 0* 

DATA  0, 8020 , C060 , E0E0 , F1E0 , FBE0, 0* 

Spade: DATA  8,9,3,0,0,0,0,0* 

DATA  0, 0,0, 0,400, 400, E00, 1F00* 

DATA  3F80 , 7FC0, 75C0 , E00 , 1F00 , FBE0, FBE0, F1E0* 

DATA  E0E0 , C060 , 3020, 8A20 , F1E0 , E0E0 , 0* 

DoScreen:WINDOW  OUTPUT  3:C0L0R  3,0:WIDTH  40iREST 

ORE  PaLetteData* 

FOR  i=0  TO  15:READ  r , g , b : PALETTE  i , r , g ,b:NEXT: RE 

TURN* 

PaLetteData : DATA  0,. 7, 0,0, 0,0, 0,0, 0,1, 0,0, 1,1,1, 

0,0,0,1,0,0,1,1,1,0,0,0* 

DATA  1,0, 0,0,. 7, 0,1, 0,0, I, 0,0,1,. 5,. 1,1,. 7,. 1,1, 

.6, .1* 

HoLdscrn: LOCATE  12,6:C0L0R  5,10:PRINT  "Press  any 

key  to  continue. .. .":G0SUB  GetKey : RETURN* 
EndGame:CLS: COLOR  1,10:LOCATE  12,10jPRINT  "Thank 

you  for  playing" : COLOR  11* 
LOCATE  14, 12: PRINT  "Casino  Black jack" iGOSUB  DeLa 
y: WINDOW  CLOSE  3* 
SCREEN  CLOSE  1 : END*  _ 
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Centerstage:  AMIGA! 

The  World  Of  Commodore  Show 


Neil  Rondall 


Every  December  since  1983,  Com- 
modore Canada  has  sponsored  the 
World  of  Commodore  show  at  the 
International  Centre  in  Toronto. 
The  show  spotlights  Commodore 
computers  and  their  wealth  of  third- 
party  products.  This  year  the  show- 
case was  seen  by  over  40,000  attend- 
ees. More  than  85  exhibitors 
displayed  their  wares,  with  Commo- 
dore itself  taking  up  the  largest  area. 

Over  the  past  five  years,  the 
Commodore  64  has  been  the  World 
of  Commodore's  dominating  star. 
In  the  recent  1987  show,  however, 
the  Amiga  took  center  stage. 

Amiga  was  everywhere,  with 
its  graphics  dancing  on  monitors 
and  its  music  booming  from  speak- 
ers. To  find  new  products  for  the 
64/128,  one  had  to  stop  and  search. 
Almost  buried  was  the  PC  lO-III, 
Commodore's  newest  entry  in  its 
line  of  PC-compatibles.  For  the  first 
time,  the  company  heard  com- 
plaints about  the  lack  of  new  prod- 
ucts for  the  64/128,  and  for  the  first 
time,  nobody  speculated  on  the  im- 
minent demise  of  the  Amiga. 

The  New  Machine 

Aside  from  its  overt  support  for  the 
Amiga,  Commodore's  biggest  news 
was  the  brand  new  PC  lO-III.  An 
XT  compatible,  the  PC  lO-III  is  de- 
signed for  those  who  want  a  PC 
compatible  that  anticipates  the  op- 
tions they  may  later  require.  The 
MS-DOS  world  boasts  (and  in 
many  ways,  quite  rightly)  of  its  ma- 
chines' expandability;  but  expand- 
ability, for  many,  is  intimidating. 
String  some  wires  together  and  you 
can  operate  a  64  or  an  Amiga,  but 
PC  compatibles  and  clones  often 
need  further  purchases  before  they 
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can  be  considered  fully  loaded. 

The  PC  lO-III  includes  only 
three  expansion  slots,  but  the  ma- 
chine's design  implies  that  three  is 
plenty.  The  package  includes  640K 
RAM,  monochrome  and  color 
graphics  capability  (for  both  RGB 
and  composite  monitors),  Hercules 
and  Plantronics  video  interfaces,  a 
built-in  clock/calendar  with  bat- 
tery backup,  a  floppy  drive  control- 
ler, and  a  hard  disk  interface. 
Several  of  these  features  have  to  be 
added  separately  to  many  compati- 
bles. Other  features  include  a  sock- 
et for  an  8087  math  coprocessor, 
software-controllable  speeds  of 
4.77,  7.16,  and  9.54  MHz,  two 
built-in  360K  floppy  drives,  and 
room  for  an  internal  half-height 
hard  drive.  The  10-111  should  carry 
a  retail  price  under  $1,200. 

The  Old  Machines 

In  this  case,  "the  old  machines" 
include  the  Commodore  64  and 
Commodore  128.  To  many,  these 
computers  have  always  been  inex- 
tricably linked,  and  most  software 
is  marketed  as  64/128  compatible. 
They  are  treated,  for  the  most  part, 
as  one. 

Most  of  the  64/128  products 
on  display  at  the  show  took  the 
form  of  productivity  and  applica- 
tions software.  Berkeley  Softworks 
displayed  their  newest  GEOS  prod- 
ucts, GeoFiler  128,  GeoPublish  64, 
and  GeoProgrammer  64  (128  ver- 
sions of  the  latter  two  products 
should  be  available  soon).  GeoPub- 
lish  is  an  extremely  friendly  desk- 
top publishing  package  aimed  for 
home  and  educational  use,  while 
GeoProgrammer  combines  an  as- 
sembler, a  linker,  and  a  debugger 


for  work  in  assembly  language. 

Supporting  GEOS  were  Abacus' 
BeckerBASIC,  for  BASIC  pro- 
gramming within  the  GEOS 
environment,  and  CDA's 
NeoFont,  which  gives  all 
GEOS  packages  23 
new  fonts  in  four  dif- 
ferent sizes.  CDA 
also  showed  the 
Graphics  Trans- 
former. This  package 
allows  you  to  transfer  pictures' 
from  one  paint  program  to  another. 
It  supports  most  existing  64/128 
paint  programs. 

Many  attendees  were  im- 
pressed by  Multi-Link,  a  64/128 
networking  system  designed  for 
classroom  use.  The  package  links  up 
to  48  Commodore  64s  or  128s  via 
linking  hardware  and  an  included 
20-megabyte  hard  drive.  Each  com- 
puter station  can  interact  directly 
with  the  control  station  (operated  by 
the  teacher),  or  they  can  operate 
individually  as  stand-alone  64s  and 
128s.  A  10-station  system,  including 
the  hard  drive  and  the  linking  hard- 
ware, will  cost  about  $3,000. 

Productivity  packages  from 
Electronic  Arts  included  Paperclip 
111,  Outrageous  Pages,  and  Mavis 
Beacon  Teaches  Typing.  Paperclip  III 
is  the  latest  version  of  the  popular 
word  processor  from  EA's  "Batter- 
ies Included"  line,  while  Outra- 
geous Pages  is  desktop  publishing 
software  with  strong  graphics  tools 
and  the  ability  to  snake  text  around 
graphics  on  the  page.  Mavis  Beacon 
Teaches  Typing  is  a  typing  tutor 
whose  difference  is  its  creation  of 
customized  lessons  for  each  user. 
With  a  highly  favorable  review  in 
The  New  York  Times,  the  package 


seems  on  its  way 
to  a  strong  future. 

Games  for  the  64/128  line 
came  almost  exclusively  from  Elec- 
tronic Arts.  Halls  of  Montezuma  is 
the  latest  module  in  SSG's  Battle- 
front  series,  and  the  delayed  Great 
Battles  of  the  American  Civil  War  is 
promised  soon.  Bard's  Tale  HI  has 
several  new  features,  including  an 
automatic  mapping  system.  Skyfox 
U,  Strike  Fleet,  and  Skate  or  Die 
round  out  the  new  selections. 

The  Machine  That  Stole 
The  Show 

What  the  World  of  Commodore 
showed  most  clearly  was  that  the 
Amiga  has  come  of  age.  Since  its 
introduction,  the  Amiga  has  been 
the  vicdm  of  Commodore's  pro- 
crastination, and  this,  in  turn,  ham- 
pered its  support  by  software 
developers.  To  judge  from  the  daz- 
zling new  products  both  an- 
nounced and  displayed  at  this 
year's  show,  the  Amiga  is  begin- 
ning to  fulfill  its  promise  of  product 
availability. 


Also  evident  was 
/  *the  growing  split  in  the 
/  focus  of  Amiga  software. 
*/'  The  Amiga  may  have 
//  been  intended  as  a  home 
/  computer,  but  much  of  the 
'  software  is  squarely  aimed  at 
the  professional  user.  Music 
professionals,  graphics  pro- 
fessionals, publishing  profes- 
sionals, and  even  airline  profes- 
sionals were  well-targeted  by  this 
year's  new  products.  Many  of  these 
products,  in  fact,  lie  well  beyond 
the  budget  of  the  home  user.  But 
the  nonprofessional  had  much  to 
choose  from  as  well,  with  word 
processors,  paint  programs,  music 
programs,  and  games  on  display 
practically  everywhere. 

Amiga  Hardware 

Toronto-based  Comspec  demon- 
strated its  new  hard  drive  and  its 
soon-to-be-released  tape  back-up 
system.  Actually,  the  hard  drive 
consists  of  two  parts;  the  SCSI  Host 
Adaptor  and  the  Hard  Drive  Chas- 
sis. The  software  allows  drive  sizes 
ranging  from  10-300  megabytes  to 
be  connected  to  the  Adaptor,  and 
the  hard  drive  system  allows  you  to 
boot  the  Amiga  in  eight  seconds 
without  using  the  Kickstart  and 
Workbench  disks.  The  tape  back- 
up on  display  backed  up  120  mega- 
bytes worth  of  data. 

Two  companies  showed  new 
RAM  expansion  devices.  Inboard, 


from  Spirit  Technology  of  Salt  Lake 
City,  gives  the  1000  or  the  500  an 
extra  megabyte  of  RAM,  and  the 
board  is  installed  internally.  Like 
most  expansion  boards  now,  In- 
board is  autoconfigurable.  Byte  by 
Byte  announced  the  Byte  Box, 
which  gives  the  500  up  to  two  me- 
gabytes of  external  expansion.  It, 
too,  autoconfigures,  and  it  has  its 
own  power  supply. 

A  British  Columbia  company, 
Hypertek/Silicon  Springs,  was  on 
hand  with  three  products.  The 
Amiga  Light  Pen  is  designed  to 
work  with  any  Amiga  program.  Its 
two  buttons  take  the  place  of  the 
two  mouse  buttons,  and  it  allows 
single-pixel  drawing  precision.  The 
Deluxe  Midi  Interface  allows  a  seri- 
al pass-through,  and  includes  MIDI 
In,  MIDI  Out,  and  switchable 
Thru/Out. 

Finally,  the  TTL  High  Resolu- 
tion Monitor  is  a  device  that  plugs 
into  the  RBG  port  and  offers  rela- 
tively flicker-free  high-resolution 
monochrome  output. 

NewTek,  makers  of  the  popu- 
lar Digi-View  system,  announced 
the  Video  Toaster,  which  at  almost 
$800  offers  realtime  color  digitiz- 
ing, video  effects,  and  broadcast- 
quality  genlock.  This  full-featured 
professional  digitizer/genlock  sys- 
tem should  provide  many  users 
with  the  high-quality  video  tools 
they've  been  waiting  for. 

Amiga  Software 

Electronic  Arts  displayed  Ferrari 
Formula  One,  a  new  racing  game  in 
its  Sports  Legends  series.  An- 
nounced for  the  Amiga  were  Bard's 
Tale  n,  Reach  For  The  Stars  (third 
edition),  Sierra  On-Line's  Thexder 
(an  arcade  game  from  Japan),  Space 
Quest  II,  and  Police  Quest,  the  latter 
two  from  the  popular  King's  Quest 
system.  Also  announced  was  The 
Hunt  For  Red  October,  a  submarine 
action/strategy  game  from  Micro- 
Prose  based  on  the  Tom  Clancy 
book  of  the  same  name. 

EA  also  had  two  announce- 
ments for  its  Deluxe  series.  Deluxe 
Productioixs  is  a  hi-res  graphics  ani- 
mation program  designed  for  busi- 
ness and  professional  use.  Deluxe 
Write  is  a  graphics  word  processor 
that  allows  the  importing  of  color 
graphics  from  programs  such  as  De- 
luxe Paint  II  and  Deluxe  Print  II. 

Three  other  new  word  proces- 
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sors  let  users  combine  text  and 
graphics.  TextPro,  from  Abacus,  in- 
cludes a  snapshot  program  that 
saves  IFF  graphics  from  programs 
that  do  not  offer  this  option.  Becker- 
Text  (also  from  Abacus)  takes  Text- 
Pro  a  few  steps  further  with  up  to 
five  math  columns  per  page  and 
printing  in  up  to  five  columns.  Both 
programs  feature  a  C-Source  mode 
for  help  in  formatting  the  source- 
code  around  C's  necessary  braces. 

A  third  word  processor,  Kind- 
Words,  from  The  Disc  Company, 
looks  very  much  like  TextCraft,  as  it 
should  have  been.  It  merges  color 
IFF  graphics  within  the  text,  con- 
tains its  own  fonts,  and  contains  a 
host  of  very  friendly  features.  The 
program's  appearance  is  very  close 
to  TextCraft's,  but  it  has  dispensed 
with  the  annoyances  of  the  Amiga's 
first  word  processor. 

Of  course,  WordPerfect  has  tak- 
en Amiga  word  processing  by 
storm,  and  WordPerfect  Corpora- 
tion was  on  hand  to  display  and 
support  its  product.  WordPerfect  for 
the  Amiga  set  the  company's  all- 
time  first-month  sales  record,  and 
users  of  this  full-featured  product 
have  no  trouble  figuring  out  why. 
The  company  also  announced 
WordPerfect  5.0  for  MS-DOS  own- 
ers, which  integrates  text  and 
graphics  and  introduces  several 
other  features.  Certainly  5.0  will  be 
available  for  Amiga  soon. 

The  Other  Guys,  from  Logan 
Utah,  demonstrated  Promise,  a 
90,000-word  spelling  checker.  Rea- 
son— a  professional  text  and  style 
analyzer  for  writers — and  Synthia,  a 
program  for  creating  digital  IFF  in- 
struments for  use  with  music  pro- 
grams. An  impressive  synthesizer 
program,  Synthia  includes  such  fea- 
tures as  the  simulation  of  plucked 
strings,  drum-kit  creation,  an  IFF 
music  player  for  users  with  limited 
RAM,  and  a  means  of  simulating 
the  natural  imperfections  found  in 
real  instruments. 

For  musicians,  Sound  Quest 
had  its  Editor/Librarian  for  Roland, 
Yamaha,  and  Casio  CZ  synthesiz- 
ers. Sound  Quest's  stage  demon- 
stration showed  the  ease  with 
which  the  program  lets  you  per- 
form multitrack  recording  using  a 
synthesizer,  and  the  ease  with 
which  you  can  change  instrument 
sounds  as  you  play.  Music  profes- 
sionals have  been  enchanted  by 


Sound  Quest  since  its  origins  as 
Texture  (from  the  now-defunct 
Cherry  Lane  Technologies). 

More  For  Th©  Amiga 

There  was  more,  much  more.  Tau- 
rus Software  showed  its  full -color 
2D  X-CAD  Designer  while  Haitex 
Resources  annoimced  Acquisition 
Pioneer,  a  scaling-down  of  its 
Acquisition  relational  database  for 
less  demanding  users.  Gold  Disk 
showed  ComicSetter,  a  comic-book 
creation  package  to  be  released 
shortly.  Syndesis  offered  Inter- 
change, a  program  for  sharing  ob- 
jects between  Byte  By  Byte's  Sculpt 
3D  and  Aegis  Development's  Video- 
Scape  3D, 

Software  Visions  demonstrat- 
ed Microfiche  Filer,  a  unique  (and 
extremely  easy  to  use)  database 
system,  while  another  easy  solution 
came  from  Oxxi,  with  its  Nimbus 
small-business  accounting  package. 
Meridian  Software  had  Zing  Spell,  a 
95,000-word  realtime  spelling 
checker;  and  Zing  Keys,  a  macro  and 
hot  key  program;  and  the  company 
announced  a  significant  update  to 
Zing,  its  multifeatured  Amiga  utili- 
ty. Finally,  RGB  Video  Creations 
was  on  hand  with  Deluxe  Help  for 
Deluxe  Paint,  a  well-designed  tuto- 
rial for  those  intimidated  by  Deluxe 
Paint's  multitude  of  features. 

Of  all  the  products  on  display, 
though,  three  merit  special  men- 
tion. From  Gold  Disk  comes  Profes- 
sional Page,  the  first  Amiga  desktop 
publishing  program  designed  spe- 
cifically for  professional  use.  A  fully 
featured  word  processor  and  docu- 
ment-creation program.  Profession- 
al Page  supports  output  to  any 
PostScript  laser  printer  or  typeset- 
ting machine.  Its  features  are  far  too 
numerous  to  describe,  but  the  pro- 
gram is  fully  supported  by  the  To- 
ronto-area  Vellum  Print  and 
Graphic  Services,  who  produced 
the  fine-looking  Professional  Page 
manual  using  that  program  exclu- 
sively. In  January,  Vellum  will  be- 
gin offering  training  courses  on  the 
use  of  Professional  Page  and  other 
print- oriented  Amiga  hardware  and 
software. 

Unquestionably,  the  most  un- 
usual product  of  the  show  was  Very 
Vivid's  Mandala.  Described  as  an 
interactive  realtime  video  develop- 
ment system,  Mandala  joins  with 
realtime  video  digitizers  to  let  you 


physically  interact  with  the  Ami- 
ga's monitor.  By  simply  standing  in 
front  of  the  monitor  and  waving 
your  arms  around,  you  can  create 
some  extremely  interesting  graph- 
ics and  sound  effects.  The  potential 
use  of  Mandala  is  only  within  the 
realm  of  speculation,  but  working  it 
into  video  presentations  and  inter- 
active games  seem  two  of  the  most 
obvious  uses. 

Airware  Solutions  of  Laval, 
Quebec  was  on  hand  with  its  AWS- 
1000  Pairing  Generator  System.  De- 
signed with  extensive  research  into 
airline  systems,  the  AWS-1000  is  the 
first  pairing  generator  available  to 
airlines.  Basically,  what  a  pairing 
system  does  is  make  sure  that  pilots 
and  flight  attendants  all  end  up  in 
the  right  places.  Until  now,  airlines 
figured  out  the  pairings  in  various 
ways,  then  ran  them  through  a 
pairing  optimizer  to  see  if  they  were 
valid.  The  AWS-1000  does  all  that 
work  for  the  airline.  Future  AWS 
modules  will  include  a  Right  Crew 
Blocking  System,  and  Aircraft  Fleet 
Management  System,  a  Flight  Crew 
Scheduling  System,  and  a  Pilot 
Cost  Evaluation  Analysis.  Though 
aimed  obviously  at  a  niche  market, 
this  software  is  highly  impressive. 

The  View 

From  Commodore 

According  to  Stan  Pagonis,  Director 
of  Marketing  Operations  for  Com- 
modore Canada,  the  emphasis  on 
the  Amiga  was  entirely  appropri- 
ate. Although  he  quickly  pointed 
out  that  the  seminars  and  stage 
shows  demonstrated  the  64/128 
and  the  PG  line  as  well,  he  suggest- 
ed that  "because  we  believe  the 
Amiga  is  our  future,  we're  going  to 
concenhrate  on  it."  For  the  first 
time,  he  said,  "we  were  finally  able 
to  tell  the  people  that  the  Amiga 
was  a  professional  machine."  For 
.the  first  time,  too,  "we  put  the  soft- 
ware question  to  rest." 

But  he  insisted  that  the  64/128 
was  not  about  to  die.  The  ready 
base  of  available  programs  attracts 
many  new  computer  owners,  he 
suggests,  and  that  is  why  sales  of 
the  64/128  remain  very  strong. 
Commodore  will  continue  to  sup- 
port it  and  they'll  continue  to  ex- 
pand their  line  of  PC-compatibles. 
Yet,  to  judge  from  the  World  of 
Commodore  show,  the  Amiga  is 
becoming  a  dominant  machine.  © 
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COMPUTE!  Books' 

WARKHOlJSlj; 
CLKARAXClj; 

SALE 


You  can  order  any  of  the  following  groups  of  books 
for  $9.95*.  Or,  choose  any  three  books  from  any- 
where in  this  ad  and  pay  $9.95*  for  all  three.  Each 
additional  book  after  3  is  just  $2.00.  (if  you  want  only 
one  or  two  books,  the  cost  is  $4  each.) 

Check  the  books  or  groups  of  books  you  want  and 
mail  this  coupon  with  your  payment  to: 


COMPUTE!  Books 

Customer  Service 

PO  Box  5038 

F.D.R.  Station 

New  York,  NY  10150 


'  Add  $2  per  order  for  shipping  and  handling. 


Name 


Address 


City. 


D  VISA      n  Mastercard 
Acct.  No 


State . 


Zip. 


Exp.  Date 


D  U.S.  money  order 

D  Check  drawn  on  a  U.S.  bank 


Subtotal 

Sales  Tax  (NC  residents  add  5%;  NY 

residents  add  8.25%) 
Shipping  and  handling  $2.00 

Total  payment  enclosed 

Offer  good  while  quantities  last.  All  sales  final. 
Please  allow  4-6  weeks  for  delivery. 


$- 
$- 


2.00 


D  Group  I  $9.95 

n  Creating  Arcade  Games  on  the  Tt-99/4A     2386272 
n  COMFUTEI's  Guide  to  Extended  BASIC  Home 

Applications  on  the  TI-99/4A  2386418 

D  Basic  Programs  for  Small  Computers  2386388 

n  COMPUTEI's  Computing  Together  2386515 

D  Group  II  $9.95 

D  Home  Applications  in  Basic  for  the  IBM  PC 
and  PCjr  2386604 

D  investment  Management  with  Your  Personal 
Computer  005X 

n  COMPUTEI's  IBM  PC  and  PCjr  Games  for  Kids 

2386493 

D  Group  III 

D  Putting  Junior  to  Work:  A  Guide  to  the  IBM  PCjr 

2386906 
D  COMPUTEI's  Telecomputing  on  the  IBM  2386965 
D  COMPUTEI's  Kids  and  the  IBM  PC  and  PCjr 

2386930 

D  Group  IV  $9.95 

D  Programmer's  Reference  Guide  to  the  Color 

Computer  2386191 

D  The  Home  Computer  Wars  2386787 

n  COMPUTEI's  Personal  Telecomputing         2386477 
D  Home  Energy  Applications  2386108 

D  The  Greatest  Games:  The  93  Best  Computer 

Games  of  All  Times  2386957 

D  Basic  Programs  for  Small  Computers         2386388 

D  Group  V  $9.95 

D  MacTaik:  Telecomputing  on  the  Macintosh 

238685X 
D  MacOffice:  Using  the  Macintosh  for  Everything 

0068 
D  Using  Your  Macintosh:  Beginning  Microsoft  BASIC 
and  Applications  021 1 

DMacldeas  0157 

D  Group  VI  $9.95 

D  Easy  Basic  Programs  for  the  Apple  2386884 

n  The  Apple  lie:  Your  First  Computer  0017 

n  COMPUTEI's  Guide  to  Telecomputing  on  the 

Apple  2386981 

n  SpeedScript:  The  Word  Processor  for  Apple 

Personal  Computers  0009 

n  The  Greatest  Games:  The  93  Best  Computer 

Games  of  All  Times  2386957 

D  Group  VII  S9.95 

D  COMPUTEI's  First  Book  of  Atari  2386000 

n  COMPUTEI's  Second  Book  of  Atari  Graphics 

2386280 
D  COMPUTEI's  Second  Book  of  Atari  238606X 

n  Mapping  the  Atari  2386094 


COMPUTE!/  Publicationsjnc.® 


A  Capital  Cm©s/ABC.  Inc.  Company 


The  Amiga  Virus 

Jim  Butterfietd,  Contributing  Editor 


The  Amiga  has  been  the  victim  of  a 
hacker's  practical  joke.  A  group  of 
programmers  from  Europe  developed 
a  small  program  that  affects  Amiga 
Workbench  disks.  This  not-so-harmless 
virus  recently  caused  quite  a  stir  at  The 
World  of  Commodore  show  in  Toronto, 
Canada.  Jim  Butterfield  explains. 


Some  call  it  a  minor  annoyance. 
Some  call  it  a  serious  hazard.  Either 
way,  a  small  system  program  found 
on  some  Amiga  disks  became  wide- 
spread at  The  World  of  Commo- 
dore show  in  Toronto,  Canada, 
This  "virus"  spreads  from  disk  to 
disk  without  the  user's  knowledge 
and  can  "infect"  an  entire  library 
before  it  makes  itself  known. 

The  World  of  Commodore 
show  did  not  spawn  this  software 
infection.  The  virus  comes  from  a 
group  in  Switzerland  called  SCA, 
so  it's  sometimes  called  the  SCA 
virus.  At  least  one  other  version  (a 
mutation)  exists.  It  has  been  known 
in  Europe  for  some  time,  and  it's 
believed  to  have  made  its  way  to 
North  America  from  Germany  in 
late  October  1987. 

Spreading  The  Virus 

The  virus  affects  Amiga  Workbench 
disks.  If  you  boot  with  an  infected 
disk,  the  virus  program  installs  it- 
self into  the  computer's  memory. 
To  further  spread  the  infection,  this 
program  wedges  itself  into  the 
Amiga's  reboot  code. 

The  virus  waits  benignly  until 
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the  user  gives  the  three-key  Amiga 
reboot  sequence.  That's  the  one 
where  you  press  the  CTRL,  Com- 
modore, and  Amiga  keys  together. 
On  the  Amiga  1000,  it's  the  CTRL, 
left-Amiga,  and  right-Amiga  keys. 
The  virus  survives  the  reboot  and 
plants  itself  onto  the  boot  track  of 
the  current  Workbench  disk. 

Most  users  think  that  the 
three-key  reboot  makes  the  system 
start  over,  cleaning  out  any  previ- 
ous code.  Not  so  with  the  virus:  It 
stays  in  there,  waiting  to  infect  your 
next  boot  disk.  And  after  a  number 
of  computer  reboots,  the  virus 
prints  a  message  such  as:  A  wonder- 
ful thing  has  happened.  Your  Amiga 
is  alive!  And,  even  better,  some  of 
your  disks  are  infected  by  a  virus! 

Diagnosing  The  Virus 

Is  the  virus  harmless?  Not  quite. 
Some  commercial  programs  use 
disk  copy-protection  systems  that 
live  in  the  same  area  that  the  virus 
invades.  If  the  virus  spreads  too  far 
(infects  too  many  disks),  you  could 
lose  some  of  your  most  valuable 
programs.  And  there's  another  dan- 
ger. With  certain  Amiga  memory 
configurations,  the  virus  mistaken- 
ly loads  itself  into  the  wrong  place, 
thus  causing  a  system  failure. 

How  can  you  tell  if  any  of  your 
disks  have  the  virus?  There  are  pro- 
grams available  that  analyze  your 
disks,  but  there's  an  easier  way: 
Insert  the  suspected  Workbench 
disk,  hold  down  the  left  mouse  but- 
ton, and  reset  your  computer  using 
the  three-key  reboot.  If  there  is  a 


virus  in  memory,  the  screen  flashes 
green  for  about  half  a  second  as  the 
computer  begins  to  reboot. 

There  may  be  certain  strains  of 
the  virus  that  do  not  exhibit  this 
tell-tale  green  flash.  For  this  reason, 
we  offer  "Vlook."  Vlook  is  a  short 
Amiga  Basic  program  that  checks 
the  computer's  memory  for  the  vi- 
rus. When  you  have  typed  in  and 
saved  the  program,  run  it. 

Vlook  creates  a  program  file  on 
the  Amiga's  RAM  disk.  You  may 
copy  this  file  to  the  disk  in  drive  0 
by  activating  the  CLI  and  typing: 

COPY  RAM:VLOOK  DFO: 

To  run  the  program  and  test 
your  computer's  memory,  enter  this 
instruction  from  the  CLL 
RAM:VLOOK 

If  your  computer  is  infected,  the 
warning  Memory  contains  a  known 
VIRUS  appears.  Otherwise  you'll 
see  "Memory  contains  no  signs  of  a 
known  virus."  If  you  receive  the  first 
message,  one  or  possibly  all  of  your 
boot  disks  are  infected. 

The  Antidote 

How  can  you  get  rid  of  the  virus?  If 
your  disk  does  not  contain  a  com- 
mercial protection  scheme,  the  CLI 
command  INSTALL  can  rid  your 
infected  boot  disks  of  the  virus.  To 
clear  the  virus  from  the  Workbench 
disk  in  drive  0,  for  example,  enter 
INSTALL  DFO:  from  the  CLI.  Do 
not  use  INSTALL  if  your  disk  has  a 
copy-protection  scheme,  since  this 
would  probably  render  the  disk 
useless.  | 


Non-Workbench  disks  (disks  that  do  not  boot 
the  computer)  cannot  be  infected  by  the  virus.  Also,  if 
you  keep  your  Workbench  disks  write-protected,  the 
virus  does  not  affect  them — an  effective  method  of 
immunization. 

Even  after  you  clean  up  a  disk,  the  virus  remains 
in  memory.  To  flush  the  virus  from  the  computer's 
memory,  shut  the  computer  off  and  leave  it  off  for  at 
least  a  minute  before  reboohng. 

VIook 

For  inslmctions  on  entering  these  programs,  please  refer  to 
"COMPUTEi's  Guide  to  Typing  In  Programs"  elsewnere  in  Itiis  Issue. 

DATA  1,210,0,199,0,3,243,202* 

DATA  0,0,0,0,0,0,0,62* 

DATA  1,0,0,0,0,0,0,0-* 

DATA  0,0, 0,0, 48, 0,0, 11 4* 

DATA  3, 233. 0,0, 0,43,67, 250* 

DATA  0,114,66,64,44,120,0,4* 

DATA  78,174,253,216,44,64,103,0* 

DATA  0,88,78,174,255,196,46,195* 

DATA  0,69,250,0,100,38,60,0* 

DATA  0,0,34,78,186,0,70,12* 

DATA  135,67,72,87,33,0,7,236* 

DATA  0,102,0,0,16,12,185,65* 

DATA  250,255,242,0,7,236,12,103* 

DATA  0,0,16,69,250,0,92,38* 

DATA  6^^, 0,0,0,  12,78,186,0* 

DATA  28,69,250,0,90,38,60,146* 

DATA  0,0,0,15,78,186,0,14* 

DATA  34,78,44,120,0,4,78,174* 

DATA  254,98,78,117,36,10,34,7* 

DATA  78,2  38,25  5,208, 100,111, 115,46* 

DATA  108,105,98,114,97,114,121,0* 

DATA  40,32,67,111,109,112,117,116* 

DATA  101,33,32,49,57,56,56,32* 

DATA  41,10,77,101,109,111,114,121* 

DATA  32,99, 111,110, 116,97,105,110* 

DATA  115,32,110,111.32,115,105,103* 

DATA  110,115,32,111,102.32.97,32* 

DATA  107, 110, 111, 119, 110, 32, 86, 7 3* 

DATA  02,85,83,46,10,0.0,0* 

DATA  0.0,3, 242* 
p=236* 

DIM  k(10),fil(p)* 
k(0)=l< 
FOR  j=l  TO  8* 

k(j)=k(j-l)*2* 
NEXT  j* 
FOR  j=l  TO  p* 

READ  fil( j)* 
NEXT  j* 
FOR  j=l  TO  p* 

FOR  jl=0  TO  10* 
IF  k(jl}<>j  AND  ((k(jl)  AND  j)>0)  THEN* 
k=k(  jD* 

fil(k)=£il(k)  XOR  fil(j)* 
END  IF* 

NEXT  jl* 
NEXT  j* 
e=0* 
FOR  j=3  TO  7* 

IF  e<fil(k(j))  THEN  e=fil(k(j))* 
NEXT  j* 
IF  e<>0  THEN* 

a=0* 

inult=0* 


FOR  j=0  TO  7* 
IF  fil(k{ j) )<>0  THEN* 
a=a+k ( j ) * 

IF  fil(k(j))<>e  THEN  mult=l* 
END  IF* 
NEXT  j* 
IF  mult=l  THEN* 

PRINT  "Multiple  errors 
ELSE  * 

PRINT  "error  at:  "* 
EtJD  IF* 
a=a-l  * 

ln=INT(a/8) :it=a-ln*a* 
PRINT  "Line"; In+lr "  Item";it+1* 
STOP* 
ELSE* 
PRINT  "writing  file..."* 
OPEN  "ramsVLook"  FOR  OUTPUT  AS  #1* 
a=0* 

FOR  j=l  TO  p* 
IF  jokU)  THEN* 

PRINT#l,CHR5(fil( j) ) ;* 
ELSE* 

a=a+l* 
END  IF* 
NEXT  j* 
CLOSE  1* 

PRINT  "File  complete."* 
END  IF* 
* 


look  around:  "* 


SUPER  81  UTILITIES 


Super  81  Utilities  is  a  complete  utilities  package  tor  the 
Commodore  1581  Disk  Drive  and  C12S  computer.  Copy  whole 
disks  or  individual  files  from  1541  oc  1571  format  to  1581 
partitions.  Backup  1581  disks.  Contains  1581  Disk  Editor, 
Drive  Monitor,  RAM  Writer,  CP/f^  Utilities  and  more  for  only 
S39.95, 


1541/1571  DRIVE  ALIGNMENT 


1541/1671  Drive  Alignment  reports  the  alignment  condition  of 
the  disk  drive  as  you  perform  adjustments,  includes  features 
for  speed  adjustment  and  stop  adjustment.  Includes  program 
disk,  calibration  disk  and  instruction  manual.  Works  on  CM, 
C128,  SX64,  1541,  1571.  Only  $34.95. 
"...excellenl.  efficient  program  that  can  help  you  save  both 
money  and  donntime."  Computers  Gazette,  Dec,  1987. 


THE  NUMBERS  SHOW 


Interactive,  animated  graphics  for  teaching  pre-schooi  & 
kindergarten  numeral  recognition  and  counting  of  events.  For 
the  Apple  He  128K.  19,95, 


MONDAY  MORNING  MANAGER 


Statistics-based  baseball  game.  Includes  64  all-time  great  major 
league  teams.  Healistic  strategy.  Great  sound  &  graphicsl  Apple  I" 
systems  -  S44.95,  C-64  &  Atari  systems  -  $39.95. 


Order  with  check,  money  order,  VISA,  Mastercard,  COD,  Free 
shipping  &  handling  on  US,  Canadian,  APO,  FPO  orders.  COD 
&  Foreign  orders  add  $4.00.  Order  from; 

Free  Spirit  Software,  Inc. 

905 W.  Hillgrove,  Suites 

LaGrange,  I L  60525 

(312)  352-7323 
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Readers  Feedback 


The  Editors  and  Renders  of  COMPUTE! 


//  you  have  any  questions,  comments,  or 
suggestions  you  would  like  to  see  ad- 
dressed in  this  column,  write  to  "Readers' 
Feedback."  COMPUTE!,  P.O.  Box  5406. 
Greensboro,  NC  27403.  Due  to  the  volume 
of  mail  we  receive,  we  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questions. 


A  Volatile  BASIC 

I  have  a  Commodore  64. 1  want  to  copy 
the  BASIC  ROM  to  the  underlying 
RAM  (locations  40960-49151).  Cur- 
rently, I'm  doing  this  with  a  FOR/ 
NEXT  loop: 

FOR  I  =  40960  TO  49I51;POKE 

I,PEEK(I);NEXT 

This  loop  requires  a  little  more  than  30 
seconds  to  execute.  Can  you  show  me  a 
faster  way  to  move  BASIC? 

Dan  Sanderson 

The  fastest  way  to  move  large  blocks  of 
memory  is  to  use  the  64's  native  lan- 
guage— 6502  machine  language.  Figure  1 
is  a  machine  language  program  that 
moves  BASIC  from  ROM  to  RAM. 

You'll  probably  want  the  program  in 
the  form  of  a  BASIC  loader: 

10  FOR  I  =  679  TO  702:READ 

A:POKEI,A:NEXT 
20  DATA  169,0,133,251,168,169,160,133 
30  DATA  252,162,32,177,251,145,251,200 
40  DATA  208,249,230,252,202,208,244,96 

Type  in  this  program  and  type  RUN. 


When  you're  ready  to  move  BASIC,  type 
SYS  67S.  The  cursor  should  reappear  in 
about  one  second.  BASIC  has  been  copied 
to  RAM. 

Once  you've  moved  BASIC  into 
RAM,  you  can  modify  it  as  you  wish.  To 
put  your  modifications  into  effect,  you 
must  turn  off  the  BASIC  ROM  with  this 
statement: 

POKE  1,  PEEKd)  AND  254 

There  are  many  interesting  modifica- 
tions to  BASIC  that  you  can  make.  You 
could  use  a  FOR/NEXT  loop  to  search  for 
certain  BASIC  messages  or  command 
names. 

As  a  sample  modification,  let's 
change  the  question  mark  used  by  the 
INPUT  statement  into  a  colon:  POKE 
43846,58.  The  ASCII  value  for  a  colon  is 
58.  Location  43S46  normally  holds  the 
number  63 — the  ASCII  value  for  the  ques- 
tion mark. 

Sheldon  Leemon  suggests  other 
changes  in  Mapping  The  64,  from  COM- 
PUTE! Books. 


NEW  Does  Work 

In  recent  issues  of  COMPUTE!  maga- 
zine, the  wrongful  statement  has  been 
made  that  Atari  BASIC  does  not  clear 
the  VNT  (Variable  Name  Table)  when 
NEW  is  typed.  Actually,  it  does. 

I  have  no  doubt  that  programs  of 
the  complexity  of  Laser  Chess  and  Biker 
Dave  need  to  be  LISTed  and  ENTERed, 
not  because  of  left-over  variables,  but 


rather  because  people  tend  to  inadver- 
tently insert  variable  names  while  typ- 
ing or  editing  or  by  "dry  running"  an 
unfinished  program  to  see  how  it's 
doing. 

Jesse  Warford 

We  stand  corrected.  NEW  does  indeed 
effectively  clear  the  variable  table.  The 
procedure  we  have  given  does  work,  but 
users  may  choose  to  type  NEW  after  LIST- 
ing  the  program,  rather  than  turning  the 
computer  off. 

1541/1571  Dual-Drive  System 

It  is  not  necessary  to  see  this  in  print,  but 
if  you  could  help  me,  I  would  appreciate 
it  very  much.  I  have  a  128  and  currently 
two  disk  drives — a  1541  and  a  1571. 

My  problem  is  how  to  set  up  the 
128  so  that  every  time  I  turn  it  on  with 
two  separate  disk  drives — my  1541  and 
1571 — the  system  will  behave  like  my 
IBM  PC,  seeing  the  disk  drives  as  sepa- 
rate devices.  Do  I  have  to  run  the  DOS 
Shell  program  every  time  to  set  up  a 
two-drive  system?  I  am  also  thinking 
about  buying  a  second  1571.  How  can  I 
set  up  a  two-drive  system  with  two 
1571s? 

T.J.  Bynum 

SettiJtg  up  a  two-drive  system  with  a  1541 

and  a  1571  is  easy.  You'll  use  the  1541  as 
device  8 — its  default — and  configure  the 
1571  as  device  9.  It's  easier  to  set  the 
system  up  this  way— with  the  1541  as 
device  8  and  the  1571  as  9 — because  one 
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91 

FB 

STA 

(ZP),Y 

02B6 

C8 

INY 

02B7 

DO 

F9 

BNE 

LOOP 

02B9 

E6 

FC 

INC 

ZP  +  1 

02BB 

CA 

DEX 

02BC 

DO 

F4 

BNE 

LOOP 

02BE 

60 

RTS 

;  ROUTINE  LOCATION 

;  BASIC  ROM 

;  FREE  ZERO  PAGE  ADDRESS 

;  POINT  ZP  TO  START  OF  BASIC,  LOW  BYTE  FIRST 

;  AT  THE  SAME  TIME,  PUT  0  IN  .Y 
;  THEN  HIGH  BYTE 

•X  IS  PAGE  COUNTER  (MOVING  32  *  256  BYTES* 

MOVE  A  BYTE  FROM  ROM. . . 

. .  .TO  RAM 

NEXT  BYTE 

CONTINUE  FOR  256  BYTES 

FOR  NEXT  PAGE 

DROP  PAGE  COUNTER 

AND  CONTINUE  FOR  32  PAGES 

WERE  DONE. 
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of  the  drive's  device  numbers  must  be 
changed  to  9,  and  the  1571  i$  ?nuch  easier 
to  change  than  the  1541. 

To  change  the  device  number  of  the 
1571,  first  look  in  Appendix  A  of  the  1571 
Disk  Drive  User's  Guide  that  came  ivith 
your  drive.  This  section  describes  how  to 
change  the  device  ?iumber.  Briefly,  to  con- 
figure the  drive  as  device  9,  you  move  the 
left  DIP  switch  at  the  rear  of  the  drive 
down.  After  making  this  adjustment,  make 
sure  the  drives  are  chained  together,  and 
you're  ready  to  go.  Your  system  should 
now  boot  up  and  recognize  the  two  drives 
as  separate  devices. 

If  you  buy  another  1571  and  want  to 
configure  the  two  1571s  as  a  two-drive 
system,  simply  use  the  new  drive  as  de- 
vice 8 — its  default — leave  the  other  drive 
configured  as  device  9,  connect  the  two, 
and  your  system's  all  set. 

Super  SpeedScripfl 

I  have  an  Atari  computer,  and  1  would 
like  to  know  if  "Atari  XL/XE  Super 
Editor"  from  the  June  1987  issue  of 
COMPUTE!  can  be  modified  to  work 
with  SpeedScript. 

Susan  Thompson 

"Super  Editor"  is  a  handy  editing  utility 
for  any  program  that  uses  the  E:  screen 
editing  device.  This  includes  BASIC  and 
certain  other  programs.  SpeedScript  does 
not  use  the  E:  device — it  has  its  own 
routines  for  handling  keyboard  entry  and 
text  displays.  This  allows  SpeedScript  to 
quickly  handle  word  wrap,  cursor  move- 
ment, and  scrolling.  It  also  makes  Speed- 
Script  incompatible  with  any  programs 
that  depend  on  the  E:  device.  So  there  is  no 
way  to  make  Super  Editor  compatible  with 
SpeedScript. 

Punctuated  Numbers 

I  recently  purchased  a  Tandy  lOOOSX 
computer.  I  have  been  working  in 
BASIC,  and  I've  noticed  that  when  I  list 
my  program,  any  six-digit  number  has 
an  exclamation  point  after  it  (123456!), 
and  any  eight-digit  number  has  a 
pound  sign  after  it  (12345678#).  To 
make  the  matter  worse,  these  signs  are 
also  printed  out  when  I  make  a  hard 
copy  listing  of  my  program, 

Could  you  please  explain  the  rea- 
son for  these  punctuation  marks? 

Philip  G.  Crompton 

Modern  BASICs  often  have  several  ways 
to  store  variables.  Numbers  with  few  sig- 
nificant digits  can  be  represented  more 
compactly  than  numbers  with  more  sig- 
nificant digits.  When  you  type  in  a  num- 
ber, BASIC  decides  how  much  space  it 
will  need  to  store  the  number.  It  then 
places  a  suffix  after  the  number  to  indicate 
which  format  it  has  used.  The  following 


table  shows  the  types  of  numeric  variables 
available  in  BASICA,  GW-BASIC,  and 
Amiga  Basic,  and  the  number  of  bytes 
each  format  requires  for  storage: 

%      integer  (two  bytes) 

!       singk'precision  floating  point 

(four  bytes) 
#       double-precision  floating  point 

(eight  bytes) 

These  punctuation  marks  can  be 
helpful.  If  you  store  a  double-precision 
number  in  a  single-precision  variable, 
your  calculations  are  likely  to  be  less 
accurate  than  they  would  be  if  you  used  a 
double-precision  variable. 


Trig  Scales 

I  own  an  Apple  II  and  am  working  on  a 
program  that  uses  hi-res  graphics.  I'm 
trying  to  use  SIN  and  COS  to  draw  a 
line  from  the  vertex  of  a  circle  to  a  point 
on  its  circumference.  Here's  my  program; 

10  HGR 

20  HCOLOR  =  7 

30  HPLOT  140,70  TO  40  *  COS(45>  -I-  140, 
40  •  SIN(45)  -\-  70 

This  should  draw  a  line  from  the 
point  (140,70)  to  another  point  40  pixels 
away  at  an  angle  of  45  degrees.  It  doesn't, 

Sam  Moelius 

You  have  the  right  idea,  but  most  comput- 
ers don't  do  their  trig  functions  in  de- 
grees— they  do  them  in  radians.  To 
convert  from  degrees  to  radians,  tnultiply 
by  pi  (3.14159265)  and  divide  by  180  (or, 
equivalentiy,  just  divide  by  0.0J7453312). 
Here  is  a  corrected  version  of  your  program: 

10  HGR 

20  HCOLOR  =  7 
25  PI  =  3.14159265 

30  HPLOT  140,70  TO  140  -  40  *  COS 
(45  *  PI/180>,70  -  40  *  SIN(45  *  PI/180) 


DIR  Power 

When  reading  a  directory  on  rrty  PC, 
the  file  listing  sometimes  continues  on 
for  more  than  a  full  screen  and  it  be- 
comes impossible  to  read  all  the  file- 
names before  they  are  out  of  sight.  Is  it 
possible  to  stop  this  scrolling? 

Also,  on  a  keyboard  that  doesn't 
have  a  PrtSc  key  to  print  the  screen,  is  it 
possible  to  get  a  printout  of  a  directory 
listing? 

Peter  Richie 

There  are  three  ways  to  stop  your  directo- 
ry listing  from  scrolling.  The  first  is  to 
press  CONTROLS  to  stop  scrolling  and 
to  press  any  key  to  resume  scrolling. 

A  second  method  is  to  append  the 
switch  /P  to  the  DIR  command  like  this 

DIR/P 

This  pauses  the  directory  listing  between 
screenfuls  of  data. 


The  third  option  is  to  use  the  DOS 
filter  MORE  in  a  command  line  like  the 
following: 

DIR  I  MORE 

This  command  will  give  essentially  the 
same  results  as  DIR  /P  discussed  above. 
While  on  the  subject  of  directories 
and  filters,  there's  another  very  useful 
DOS  filter  called  SORT.  With  it,  you  can 
sort  a  directory  (or  any  other  file)  on  any 
field  you  wish.  To  create  a  sorted  directory 
that  will  pause  its  display  after  each 
screen,  use  the  following  command: 

DIR  I  SORT  I  MORE 

Please  note  that  you  can't  use  the  /P 
option  to  pause  the  directory  when  using 
the  301(1  filter.  Also,  when  using  filters, 
DOS  creates  a  temporary  file  on  your  disk. 
There  must  be  enough  room  on  the  current 
disk  for  the  temporary  file,  and  the  disk 
cannot  be  write-protected. 

The  SORT  filter  can  work  wonders 
with  directories.  Since  DOS  is  very  rigid 
about  the  directory's  format,  you  can  tell 
SORT  to  begin  sorting  in  certain  columns 
and  produce  a  directory  sorted  just  the 
way  you  want.  To  sort  a  directory  and 
specify  a  column  in  which  to  begin  sort- 
ing, use  a  command  of  the  form 

DIRISORT/-t-N 

where  n  is  the  column  number  on  which 
you  want  the  sort  to  begin.  Here  are  the 
important  column  numbers  for  the  stand- 
ard DOS  directory: 

1  filename 

20  file  extension 

24  date 

34  time 

39  meridian  (a.m.  or  p.m.) 

If  you  want  to  view  a  directory  sorted  by 
file  extension,  for  example,  and  also  want 
the  listing  to  pause  after  each  screen,  you 
would  give  the  following  command: 

DIR  I  SORT/  -I-  10  I  MORE 

It's  easy  to  obtain  a  printout  of  your 
directory  without  using  a  PrtSc  key  be- 
cause of  a  DOS  mechanism  called  piping. 
Piping  allows  you  to  redirect  the  output  of 
a  program — like  a  directory  listing — to 
any  file  or  device  you  wish.  To  send  the 
output  of  the  above  directory  command  to 
the  printer,  all  you  need  to  do  is  append  > 
PRN  to  the  command.  The  >  tells  DOS  to 
redirect  output  (you  can  redirect  input 
with  <)  and  PRN  tells  it  to  send  the 
output  to  the  printer. 

So,  the  entire  command  would  look 
like  this: 
DIR  I  SORT  /  -I-  10  >  PRN 

Notice  we  didn't  use  the  MORE  filter. 
When  sending  output  to  a  diskfile  or 
printer,  pauses  after  each  screen  are 
unnecessary. 

With  DOS's  filters  and  redirection, 
the  simple  DIR  command  becomes  a  pow- 
erful tool.  @ 
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Microscope 


Sheldon  Leemon 


IBM  wanted  to  celebrate  the  success 
of  its  PS/2  line  at  the  fall  COMDEX 
show,  so  it  proclaimed  that  it  had 
shipped  the  one-millionth  PS/2 
connputer  and  rolled  out  a  big  ad 
campaign  based  on  the  thence 
Thanks  a  million.  Industry  pundits 
quickly  scrambled  to  determine  just 
what  shipped  meant. 

The  consensus  of  opinion 
among  these  party-poopers  was 
that  IBM  had  built  a  million  units  of 
the  new  models  and  had  sent  them 
to  dealers,  but  that  maybe  as  many 
as  a  third  of  them  still  actually 
hadn't  been  sold.  This  technicality 
didn't  stop  IBM  from  flying  the 
dealer  who  sold  the  millionth  unit 
to  Las  Vegas  for  the  show. 

How  could  even  IBM,  with  all 
of  its  computing  power,  figure  out 
exactly  which  dealer  sold  the  mil- 
lionth computer?  Their  rather  prag- 
matic approach  was  to  have  each  of 
about  200  regional  sales  represen- 
tatives pick  one  of  their  dealers,  all 
200  of  whom  were  brought  to  the 
show  on  the  premise  that  they  had 
sold  the  lucky  machine.  Well,  the 
winner  was  probably  in  the  group 
there,  somewhere. 


************ 


It  wouldn't  be  an  IBM  product  in- 
troduction without  rumors  of  prob- 
lems with  the  new  machines.  First, 
there  was  a  minor  problem  with  the 
BIOS  of  the  Model  50  and  Model  60 
which  caused  the  time  to  be  inaccu- 
rate in  some  situations.  This  report- 
edly caused  some  dealers  to 
conclude  that  the  clocks  were  bad 
and  to  ship  back  all  of  their  units  as 
defective.  IBM  issued  a  quick  DOS 
patch  to  fix  that  problem,  but  the 
confusion  lingers. 

Recently,  there  have  been  ru- 
mors of  power-supply  problems 
with  the  Model  50  and  a  high  over- 
all failure  rate  for  the  machines. 
IBM  has  issued  a  firm  statement 
saying  that  there  are  no  problems 
with  the  new  machines. 


Those  of  you  who  can  remem- 
ber way  back  to  the  AT  introduc- 
tion may  recall  that  a  number  of 
users  claimed  that  there  were  seri- 
ous hard-drive  problems  with  the 
machine.  IBM  denied  all  such  re- 
ports. Several  publications  made 
intensive  studies  of  the  problem, 
leading  to  results  that  were  incon- 
clusive at  best.  By  the  time  these 
studies  were  published,  IBM  had 
changed  hard-drive  vendors,  and 
everybody  had  forgotten  about  the 
rumored  problems. 


***•***••*•• 


At  the  annual  World  of  Commo- 
dore show  in  Toronto,  Commodore 
officials  announced  that  the  compa- 
ny had  met  its  goal  of  an  installed 
base  of  500,000  Amigas  worldwide 
by  the  end  of  1987.  Part  of  the 
reason  for  this  is  the  tremendous 
reception  of  the  Amiga  500  in  Eu- 
rope. Over  half  of  the  Amigas  sold 
have  gone  to  customers  outside  of 
the  U.S.  Nonetheless,  the  500  ap- 
pears to  be  gaining  momentum 
here  as  well.  The  2000  has  sold  so 
much  better  than  Commodore  ex- 
pected that  the  machine  was  un- 
available for  much  of  the  Christmas 
selling  season. 

But,  surprisingly  enough,  the 
Commodore  64  also  appears  to 
flourish.  Despite  the  fact  that  the 
Amiga  500  offers  ten  times  the 
power  of  the  64  for  about  a  50- 
percent-higher  price,  the  name- 
recognition  factor  generated  by  an 
installed  base  of  over  ten-million 
machines  obviously  still  carries 
some  weight.  Commodore  chairman 
Irving  Gould  stated  that  he  could 
have  sold  an  additional  fifty- 
thousand  64C's  if  he  could  have  pro- 
duced them  in  time  for  Christmas. 

The  continuing  popularity  of 
the  64  in  Canada  was  particularly 
evident  at  the  Toronto  show,  where 
the  proportion  of  interest  in  the 
64/128  as  compared  to  the  Amiga 
was  much  higher  than  at  similar 


U.S.  shows. 

Hi*********** 

Motorola  has  formally  announced 
the  68030,  the  most  recent  addition 
to  the  68000  family  of  processors 
used  in  such  machines  as  the  Mac- 
intosh, ST,  and  Amiga.  While  its 
predecessor,  the  68020,  has  been 
likened  in  power  to  Intel's  80386 
chip,  the  new  processor  is  said  to  be 
two  to  four  times  as  powerful.  Since 
its  instruction  set  is  very  close  to 
those  of  the  other  68000-series 
chips,  software  compatibility 
should  be  good. 

The  first  name-brand  machine 
to  use  the  new  processor  will  likely 
be  the  Macintosh.  The  Mac  II  al- 
ready uses  the  68020  and  probably 
does  not  need  any  significant  modi- 
fications in  order  to  use  the  new 
chip.  Insiders  say  that  the  68030 
version  of  the  Mac  II  could  show  up 
any  day  now.  Although  such  a  ma- 
chine would  not  be  cheap,  it  would 
rank  among  the  most  powerful 
desktop  units  available.  And 
though  the  ST  and  Amiga  line  still 
don't  include  a  68020  machine, 
both  Commodore  and  Atari  have 
stated  that  they  intend  to  use  the 
68030  in  future  products. 

************ 
One  of  the  most  interesting  stories 
to  come  out  of  the  recent  AppleFest 
was  a  statement  from  Apple  that 
over  200,000  units  of  the  IlGS  had 
been  sold  so  far.  This  figure  is  about 
twice  as  large  as  most  previous  in- 
dustry estimates. 

The  reason  so  many  people 
had  underestimated  the  GS  is  that  a 
large  proportion  of  sales  have  been 
to  schools  and  other  institutions. 
Such  sales  may  not  be  as  visible  as 
retail  sales,  but  they  are  perhaps 
even  more  important  to  the  contin- 
ued success  of  the  GS.  Apple  is  well 
aware  that  large  sales  to  schools 
today  can  generate  even  larger  sales 
for  home  use  in  the  future.  0 
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NRI  Trains  You  At  Home— As  You  Build  Your  Own  IBM-Compatible  Computer 

GET  THE  KNOHHIOW 

TO  SERVICE  EVERY 

COMPUTER  ON  THIS  PAGE 


Learn  the  Basics  the  NRI 
Way-and  Earn  Good 
Money  Troubleshooting 
Any  Brand  off  Computer 

The  biggest  growth  in  jobs 
between  now  and  1995, 
according  to  Department  of 
Labor  estimates,  will  occur  in 
the  computer  service  and  repair 
business,  where  demand  for 
trained  technicians  will  actually 
double. 

You  can  cash  in  on 
this  opportunity— either 
as  a  full-time  corporate 
technician  or  an  inde- 
pendent service-person 
— once  you've  learned  all 
the  basics  of  computers 
the  NRi  way.  NRl's 
practical  combination  of 
"reason-why"  theory  and 
"hands-on"  building  skills 
starts  you  with  the  funda- 
mentals of  electronics,  then 
guides  you  through  advanced 
electronic  circuitry  and  on  into 
computer  electronics.  You  also 
learn  to  program  in  BASIC  and  machine 
language,  the  essential  languages  for 
troubleshooting  and  repair. 

Ibtai  Computer  Systems 
Ihiining,  Only  From  NRI 

No  computer  stands  alone . . .  it's  part  of 
a  total  system.  To  really  service  computers, 
you  have  to  understand  computer  systems. 
And  only  NRI  includes  a  powerhil  com- 
puter system  as  part  of  your  training, 
centered  around  the  new  fully  IBM 
compatible  Sanyo  880  Series  computer. 

You  start  with  the  step-by-step 
assembly  of  the  new,  highly  rated  fully 
IBM  compatible  Sanyo  880  Series  com- 
puter. You  install  and  troubleshoot  the 
"intelligent"  keyboard.  Then  you  assem- 
ble the  power  supply,  install  the  disk 
drive,  and  add  extra  memory  to  give  you 
a  powerful  256K  I^M  system.  The  new 
880  computer  has  two  operating  speeds: 
standard  IBM  speed  of  4.77  MHz  and  a 
remarkable  turbo  speed  of  8  MHz,  mak- 
ing it  almost  twice  as  fast  as  the  IBM  PC. 
Next,  you'll  interface  the  high-resolution 
monitor  and  begin  to  use  the  valuable 
software  also  included  with  your  com- 
plete computer  system. 


IBM  ^s  a  ReQislsred  Trademark  oriBM 
Corporation. 

Ep&on  Is  a  Reglslered  Tradgmarlc  ol  Epson 
America,  Inc. 

Apple  and  the  Apple  logo  are  Reolsiered 
Trademarks  a(  Apple  Computer.  Inc. 

Compaq  Is  a  Reglsleted  Trademark  ol 
CDVPAQ  Computer  Corporation. 


no  need  to  quit  your  present  job  until 
you're  ready  to  make  your  move.  Your 
training  is  backed  up  by  your  personal 
NRI  instructor  and  the  NRI  technical  staff, 
ready  to  answer  your  questions 
and  help  you  when  you 
need  it.  You  gtt  it  all  with 
NRI  at-home  training. 

100-Page  Free 
Catalog  Tells  More 

Send  the  postage-paid 
reply  card  today  for 
NRl's  big,  100-page, 
color  catalog  on  NRl's 
electronics  training, 
which  gives  you  all 
the  (acts  about 
NR]  courses 
in  Micro- 
■      computers. 
Robotics, 
Data  Com- 
munications, 
TV/Audio/ 
Video  Servicing, 
and  other  growing 
high-tech  career  fields. 
If  the  reply  card  is  missing, 
write  to  the  address  below. 


It  all  adds  up  to  confidence- 
building,  real-world  experience 
that  includes  training  In  program-       ■< 
ming,  circuit  design,  and  peripheral 
maintenance.  You'li  be  learning  about, 
working  with,  servicing,  and  trouble- 
shooting an  entire  computer  system- 
monitor,  keyboard,  computer,  disk  drive, 
power  supply- to  ensure  that  you  have 
all  the  essential  skills  you  need  to  succeed 
as  a  professional  computer  service 
technician. 

No  Experience  Needed, 
NRI  Builds  It  in 

This  is  the  kind  of  practical,  hands-on 
experience  that  makes  you  uniquely 
prepared,  with  the  skills  and  confidence 
you  need  for  success.  You  learn  at  your 
own  convenience  in  your  own  home. 
No  classroom  pressures,  no  night  school. 


Your  NRI  total  systems  training  includes: 

•  NRI  Discovery  Lab'  to  design  and  modify  circuits  • 
Your  tour-(unc:tion  digital  multimeter  witti  wall(-you- 
ttirougti  instructions  on  audio  tape  •  Digital  logic 
probe  for  visual  examination  of  keylxiard  circuits  • 
Ttie  newest  Sanyo  880  Series  Computer  with  "intelli- 
gent" keyt>oard  and  360K  double<lensJty,  double'sided 
disk  drive  •  HIgti  resolution  monochrome  monitor  •  SK 
HOM,  256K  RAM  •  Bundled  sofhvare  including  GW 
BASIC,  MS-DOS,  WordStar,  CalcStar  •  Reference 
manuals,  schematics,  and  bite-sized  lessons. 


SCHOOLS 

McGraw-Hill  Continuing  Education  Center 

3939  Wisconsin  Avenue,  NW 
Washington,  DC  20016 


We'll  Give  You  Tomorrow. 
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Computers  and  Society 

David  D,  Thornburg.  Contributing  Editor 


Computers,  Writing,  And  Al 


Of  all  the  myriad  applications  for 
personal  computers,  I  would  guess 
that,  by  far,  the  most  popular  use  is 
word  processing.  In  the  early 
1980s,  the  availability  of  good  word 
processing  programs  on  micros  vir- 
tually drove  the  dedicated  word 
processors  from  the  marketplace. 
Even  though  there  has  been  a  re- 
surgence of  dedicated  word  proces- 
sors, there  is  little  question  that  the 
personal  computer  will  continue  to 
be  king  in  this  application  area. 

As  a  writer  who  feels  naked 
without  his  computer,  I  occasional- 
ly startle  people  when  I  say  that  I 
don't  use  a  spelling  checker.  I  thrive 
on  the  computer's  ability  to  let  me 
move  text  around  to  my  heart's 
content;  I  enjoy  the  ability  to  format 
my  output  in  any  fashion  I  want, 
but  I  don't  use  the  computer  to 
check  my  spelling  or  usage. 

Casting  A  Spell 

My  reluctance  to  use  spelling 
checkers  has  nothing  to  do  with  my 
spelling  skills;  I  make  plenty  of  mis- 
takes. My  problem  is  that  spelling 
checkers  don't  catch  the  kinds  of 
errors  I  commonly  make.  Many 
(but  not  all)  of  my  spelling  errors 
result  in  other  words.  For  example, 
stop  becomes  spot.  A  word-based 
spelling  checker  is  useless  in  such 
cases,  I  would  love  to  have  a  spell- 
ing checker  that  catches  errors  like 
these,  but  such  programs  have  to  be 
context  sensitive. 

Another  problem  with  most 
spelling  checkers  is  that  they  can 
lead  you  to  wrong  choices.  For  ex- 
ample, with  the  word  dot,  most 
spelling  checkers  would  offer  the 
choice  allot  instead  of  the  correct 
split  into  two  words,  a  lot.  The  word 
payed  would  be  even  harder  to  han- 
dle since  spelling  checkers  that  scan 
letter  by  letter  would  end  up  with 
payer,  and  so  on,  and  not  offer  the 
correct  past-tense  form,  paid. 

The  complexities  of  English  are 


such  that  a  good  proofreading  tool 
needs  to  be  based  on  something  far 
more  sophisticated  than  a  word  list. 
It  needs  to  have  access  to  rules  of 
grammar — an  ability  to  deal  with 
phonology,  orthography,  morphol- 
ogy, syntax,  and  semantics. 

This  is  a  tremendously  com- 
plex task. 

Because  of  the  rule-based  na- 
ture of  much  of  English  grammar,  it 
is  appropriate  to  seek  some  solu- 
dons  for  this  problem  in  the  domain 
of  expert  systems— sophisticated 
programs  that  are  an  outgrowth  of 
years  of  research  in  the  field  of 
artificial  intelligence. 

A  Model  Emerges 

A  few  months  ago,  I  was  privileged 
to  visit  with  Dr.  Robert  Arn,  the 
creator  of  just  such  a  program  for 
the  ICON  computer. 

The  ICON  is  manufactured  by 
Unisys  to  meet  the  needs  of  educa- 
tional computing  in  Canada,  Dr,  Am 
designed  the  ICON,  and  he  holds  a 
doctorate  in  the  field  of  linguistics. 
His  interests  in  technology  and  lin- 
guistics came  together  in  a  project 
that  has  kept  him  and  his  colleagues 
busy  for  the  past  three  years.  During 
this  time,  he  designed  Englishl — a 
rule-based  program  that  sits  in  the 
background  of  a  word  processor, 
ready  to  offer  advice  when  asked. 

To  use  Englishl,  the  user  sim- 
ply selects  the  text  to  be  analyzed 
and  requests  that  it  be  examined. 
Words  that  seem  incorrect  are  high- 
lighted. The  user  can  then  select 
any  highlighted  word  and  ask  for 
an  explanation  of  what  may  be 
wrong.  The  computer  looks  for 
spelling  and  usage  errors  and  pro- 
vides as  much  coaching  and  advice 
as  it  can.  The  reason  for  providing 
extensive  coaching  (as  opposed  to 
simply  correcting  the  error)  is  that 
this  program  is  designed  to  serve  as 
a  writing  tutor.  The  goal  is  to  help 
the  writer  avoid  errors  in  the  future. 


not  just  to  correct  them. 

The  program  version  I  used 
worked  with  a  base  of  rules  for  all 
but  the  semantic  level  of  language. 
Dr,  Am  is  working  in  that  area  now. 
Using  our  previous  example,  it  cor- 
rectly identified  that  alot  should  be 
a  lot  and  that  payed  should  be  paid. 
This  latter  error  was  detected  by 
first  catching  the  misspelling,  notic- 
ing that  the  -ed  ending  may  imply  a 
past-tense  form,  and  then  exploring 
rules  for  forming  past-tense  forms. 

In  addition  to  providing  an  in- 
telligent spelling  checker,  Englishl 
also  examines  the  text  for  words 
that  present  usage  problems  for 
some  writers,  for  example,  fewer/ 
less,  seasonal /seasonable,  and  so  on. 
Consequently,  this  program  can 
serve  as  a  writing  coach  to  a  student 
who  is  working  on  an  essay,  Eng- 
lishl does  not  make  any  changes  in 
the  author's  text;  it  makes  only  ob- 
servations and  suggestions. 

English!  Is  RAM  Tough 

In  the  form  I  saw,  Englishl  takes 
five  megabytes  of  disk  space.  The 
new  version  that  includes  the  abili- 
ty to  deal  with  semantic  issues  will 
be  distributed  on  CD  ROM  since  it 
is  going  to  use  about  500  mega- 
bytes. These  sizes  indicate  just  how 
complex  natural  languages  are. 

Even  though  Unisys  is  starting 
to  sell  the  ICON  in  the  U.S.,  it  is 
targeted  to  classrooms,  not  busi- 
nesses. Consequently,  it  is  unlikely 
that  we  will  have  access  to  tools  as 
sophisticated  as  Englishl  for  some 
time.  On  the  other  hand,  the  fact 
that  Englishl  exists  at  all  proves  that 
good  proofreading  tools  can  be  cre- 
ated to  run  on  microcomputers. 
Continued  work  in  this  area  will 
result  in  programs  that  run  on  the 
machines  we  have  on  our  desks. 

Until  then,  I'll  have  to  be  con- 
tent to  do  my  grammatical  analysis 
with  the  one  computer  that  out- 
strips them  all — the  human  brain,® 
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C,  Regena 


Making  Music  With  BASIC 


I  enjoy  programming  music  on  the 
computer.  Since  I  am  a  former  pi- 
ano teacher,  I  have  been  able  to  use 
the  computer  for  tutorial  and  drill 
programs.  With  the  computer's  ex- 
act tones  and  timing,  I  also  use  the 
computer  to  play  written  music  so  I 
can  hear  how  it's  supposed  sound. 
I  would  have  liked  to  present  a 
music  program  this  month — how- 
ever, sound  commands  are  differ- 
ent among  the  various  versions  of 
BASIC.  Each  computer  has  its  own 
special  music  features.  So  my  ad- 
vice is  to  read  the  manual  that 
comes  with  your  computer.  Here, 
I'm  going  to  review  some  of  the 
more  common  BASIC  sound  com- 
mands. Unfortunately,  because 
many  early  versions  of  BASIC  do 
not  support  sound,  these  examples 
do  not  work  on  the  Commodore  64 
or  Apple  II  family  of  computers. 

Sounding  Off 

BEEP — available  on  the  Amiga  and 
IBM  PC/PCjr— is  probably  the  eas- 
iest command  to  use  when  you 
want  to  produce  a  sound.  Some 
computers,  such  as  the  Apple  II, 
Atari  ST,  and  Commodore  128,  use 
PRINT  CHR$(7)  to  produce  a  bell 
or  beep  sound.  The  Atari  eight-bit 
computers  use  PRINT  CHR$(253). 
Whenever  you  want  a  short  tone, 
such  as  a  prompting  tone,  you  can 
use  BEEP.  You  may  also  use  it  for  a 
game  sound. 

Most  computers  have  a 
SOUND  command,  although  the 
parameters  vary  from  computer  to 
computer.  Here  are  some  examples: 

Amiga 

SOUND  frequency, du  ration,volume,voice 

Atari 

SOUND  voice,note,tone,loudness 

Atari  ST 
SOUND 
voice,volume,notefictave,dufotion 

Commodore  128 

SOUND  voice,frequenc}f,duration 

IBM  PC  and  compatibles 
SOUND  frequency, duration 


IBM  PCjr  with  Cartridge  BASIC 
SOUND  frequency,duration,volttme,voice 

The  Commodore  128's 
SOUND  command  includes  several 
opdonal  parameters,  such  as  wave- 
form and  pulse  width,  that  are  not 
listed  above.  In  each  case,  parame- 
ters may  be  numeric  constants  or 
numeric  variables,  and  there  are 
certain  limits  for  each  parameter. 

The  Amiga  and  IBM  SOUND 
statements  use  frequency  numbers 
in  cycles  per  second,  or  hertz  (Hz), 
that  produce  a  certain  tone — fre- 
quencies with  which  many  musi- 
cians are  already  familiar.  For 
example,  440  Hz  create  what  we 
hear  as  the  note  A. 

Duration  is  a  number  often  de- 
noting the  number  of  "clock  ticks" 
that  a  particular  sound  lasts.  You 
may  need  to  experiment  a  little  to 
see  which  numbers  correspond  to 
the  dming  you  want.  Because  the 
eight-bit  Atari  SOUND  command 
does  not  have  a  duration  parame- 
ter, you  must  time  the  sound's  du- 
ration yourself,  using  something 
Hke  a  FOR-NEXT  loop.  To  turn  the 
sound  off  with  the  Atari,  use  a 
SOUND  command  specifying  a 
volume  of  0. 

Here  is  an  example  of  how  you 
can  use  SOUND  to  write  music, 

100    REM    AMIGA, IBM    PC/PCjr 

AND    COMPATIBLES    ■* 
110    SOUND    523,  20-* 
120    SOUND    659, 20< 
130    SOUND    784,20* 


100  REM  E 
105  DURAT 
110    FOR     I 

OUND 
1 
115    FOR     I 
120    FOR     I 

DUND 

I 
125    FOR     I 
130    FOR     I 

aUND 

I 
135    FDR    I 
140    SOUND 


lOHT-BIT    ATARI 

"l     TO    DURATIONsS 
0, 121, 10, 15: NEXT 

-l     TO     10SNEXT     I 
«1     TO    DURATIQNiS 
0,96, 10, 15:NEXT 

-1     TO     101NEXT     I 

»1  TO  DURATIDN:S 
0,B1, 10, ISsNEXT 

-1  TO  10:NEXT  I 
0,0,0,0 


100  REM  ATARI  ST  ~  ST  BASIC 

110  SOUND  1,15,1,4,20 

120  SOUND  1,15,5,4,20 

130  SOUND  1,15,8,4,20 

100  REM  COMMODORE  128 
110  SOUND  1,  4291,  20 
120  SOUND  1,  5407,  20 
130  SOUND  1,  6430,  20 

The  voice  parameter  is  available 
on  computers  that  have  more  than 
one  voice — computers  on  which  you 
can  hear  more  than  one  note  at  a 
time.  For  example,  here's  how  to 
play  a  chord  using  three  voices: 

100  REM  AMIGA* 
110  SOUND  523,30,10,0* 
120  SOUND  659,30,20,1* 
130  SOUND  784,30,30,2* 

* 

100  REM    eiQHT-BlT    ATARI 

105  FOR    DURATIDN=1     TO    90 

1 10  SOUND    0, 121, 10, 15 

120  SOUND     1,96, 10, 15 

130  SOUND    2,81 , 10, 15 

140  NEXT    DURATION 

150  SOUND    0,0,0,0 

160  SOUND     1,0,0,0 

170  SOUND    2,0,0,0 

100  REM   ATARI    ST   -   ST   BASIC 

110  SOUND    1, 15, 1,4,10 

120  SOUND    2,15,5,4,20 

130  SOUND   3,15,8,4,30 

100  REM  COMMODORE  128 
110  SOUND  1,  42  91,  60 
120  SOUND  2,  5407,  60 
130    SOUND    3,    6430,    60 

100    REM    PCjr    WITH    CARTRIDGE    BAS 

IC 

105    SOUND    ON 

110   SOUND   523,30,10,0 

120   SOUND   659,30, 10, 1 

130   SOUND   784,30,10,2 

Playing  Music 

The  IBM  PC/PCjr  and  compatibles 
have  a  VLA^  command.  (The  Com- 
modore 128  has  a  PLAY  statement 
as  well,  but  the  options  are  quite 
different.)  This  command  can  be 
used  to  play  simple  melodies  using 
the  letter  names  of  notes — A,  B,  C, 
D,  H,  F,  and  G.  As  you  get  more 
experienced,  you  will  find  that 
there  are  more  options  in  the  PLAy 
command. 
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There  are  certain  default  val- 
ues for  the  PLA^  command,  but 
you  can  change  them  by  adding 
options.  You  may  add  a  sharp  to  a 
note  by  using  the  character  #  or  +, 
and  you  may  add  a  flat  by  using  the 
-  character.  The  octave  number  can 
be  specified  with  O,  such  as  03, 
indicating  the  middle-C  range. 
(Make  sure  you  use  the  letter  O  and 
not  the  number  0.)  You  may  also 
change  the  octave  by  using  >  to  go 
to  the  next  higher  octave  and  <  to 
go  to  the  next  lower  one. 

The  command  PLAY  "MN" 
plays  normal  notes  {a  slight  pause 
between  notes).  The  string  "ML" 
indicates  legato,  or  notes  smoothly 
connected;  "MS"  plays  staccato 
notes. 

You  use  L  to  indicate  the  length 
of  notes.  Actually,  you  indicate 
what  fraction  the  note  should  be. 
For  example,  LI  is  a  whole  note,  L2 
is  a  half  note,  L4  is  a  quarter  note, 
and  L8  is  an  eighth  note.  The  L 
option  affects  all  the  notes  that  fol- 
low. L8C  plays  C  as  an  eighth  note. 
A  shorter  form  is  to  simply  follow 
the  note  name  with  a  number  and 
not  use  the  L.  For  example,  C8  also 


indicates  C  as  an  eighth  note. 

P  is  used  for  a  pause  or  rest, 
and  you  specify  the  length  just  as  in 
the  L  option.  P4  is  a  quarter-note 
rest. 

There  is  a  default  tempo,  but  if 
you  want  to  go  slower,  use  T  fol- 
lowed by  the  number  of  quarter 
notes  per  minute,  such  as  T88.  You 
may  change  the  volume  by  using  V 
followed  by  a  number. 

I  like  to  use  variables  in  the 
PLAy  statement.  When  you  use  a 
numeric  variable,  you  need  to  use 
the  equal  sign  before  the  variable 
name  and  a  semicolon  after  the 
variable  name.  For  example,  PLAlf 
"0=H;  GEC"  plays  the  notes  G,  E, 
and  C  in  the  octave  specified  by  the 
variable  H. 

You  may  define  a  string  vari- 
able to  be  a  series  of  notes  and  then 
use  that  string  in  the  PLA/  com- 
mand. To  execute  a  string  variable, 
use  "X".  For  example,  PLAY 
"XA$;"  plays  the  notes  defined  in 
string  A$.  Note  that  there  is  a  semi- 
colon after  the  string  name.  Here  is 
an  example  of  PLA^  using  vari- 
ables. The  octave  is  set  using  a 
FOR-NEXT  loop,   and   the  actual 


notes  are  stored  in  S$. 

100  REM  IBM  PC/PCjr  AND  CQMPPlTl 

BLES 

110  S*="CDEFGAB" 

120  FOR  C=l  TO  a 

130  PLAY  "O-C;  XS»5 " 

140  NEXT  C 

You  may  use  string  variables 
for  storing  musical  phrases.  For  ex- 
ample, you  might  set  up  A$  for  the 
first  musical  phrase,  B$  for  the  sec- 
ond phrase,  and  C$  for  the  third 
phrase  (have  you  ever  heard  of 
ABCA  format?).  This  way,  you  can 
piece  your  music  together.  Here  is  a 
simple  example: 

100  REM  IBM  PC/PCjr  AND  CQMPATI 

BLES 

110  A*="GGFE" 

120  B«="EEFG" 

130  C*="FEDC" 

140  PLAY  "XA»;  XB*;  XC$;  XA«; " 


Everything  you  need  to  know  about  buying 

an  IBM  PC,  compatible,  or  portable — all  in  an  easy-to-understand, 
convenient  format. 


COMPUTEI's  Buyer's  Guide  to  IBM  PCs,  Compatibles, 
and  Portables 

Robert  Wolenik  ISBN  0-87455-123-4  $12.95 

This  comprehensive  guide  to  PC  compatibles  and  portables 
includes  all  the  information  needed  to  make  intelligent 
decisions  about  the  purchase  of  an  IBM  PC  or  compatible. 
For  each  computer,  we've  included  a  concise  review,  and 
discussions  of  the  computer's  background,  features  and  poten- 
tial drawbacks,  as  well  as  technical  data.  The  author  of 
COMPUTEI's  Buyer's  Guide  to  IBM  PCs,  Compatibles,  and 
Portables  has  authored  or  co-authored  more  than  a  dozen 
computer  books  including  the  highly  successful  Buyer's  Guide 
to  Home  Computers. 


To  order  COMPUTE!  books,  caU  toll  free  1-800-346-6767  (in  NY  212-887-8525)  or  write  COMPUTE!  Books 
Customer  Service,  P.O.  Box  5038,  F.D.R.  Station,  New  York,  NY  10150.  Customer  Service  hours  are  10:00  a.m.  to 
12:30  p.m.  and  1:30  p.m.  to  3:30  p.m.  Eastern  time  Monday  through  Friday.  Please  add  $2,00  per  book  U.S.  and 
surface  mail  or  $5.00  air  mail  shipping  and  handling.  NC  residents  add  5  percent  sales  tax  and  NY  residents  add 
8.25  percent  sales  tax.  Please  allow  4-6  weeks  for  delivery. 


COMPUTE!  book^  arc  available  outside  the  United  Slates  from 
subsidiaries  of  McGraw-Hill  Iniemational  Book  Company. 
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Donald  B^  Trivette 


Computer  Stew 


Once  each  year  I  clean  my  cup- 
board of  all  the  stuff  that  is  good 
and  worth  talking  about,  but  for 
one  reason  or  another  didn't  make 
it  into  a  column.  December  or  Janu- 
ary is  a  logical  time  to  do  this — year 
end  and  all  that — but  I'm  late,  as 
usual.  So  here,  in  the  March  issue, 
is  a  stew  concocted  from  two  of  last 
year's  left-over  goodies. 

The  Bible  As  Data 

Bryan  Moore  is  an  inventor  and 
entrepreneur  who  developed  a  ma- 
jor piece  of  ophthalmological 
equipment.  After  he  sold  his  inven- 
tion to  a  large  company,  he  turned 
his  energies  and  talents  to  his  pas- 
sion— the  study  of  the  Bible. 

The  King  James  version  of  the 
Holy  Bible  was  published  in  1611, 
during  the  reign  of  James  1  of  Eng- 
land. There  are  hundreds  of  edi- 
tions of  this  book  in  hard-copy  form 
and  maybe  a  dozen  computerized 
versions.  But  when  Bryan  Moore 
investigated  biblical  computer  soft- 
ware, he  was  disappointed  with 
what  he  found  and  thought  he 
could  do  better.  He  did.  The  result 
is  a  product  called  God  Speed  dis- 
tributed by  Kingdom  Age  Software 
(3368  Governor  Dr.,  Suite  F-197, 
San  Diego,  CA  92122), 

God  Speed  can  locate  any  word 
or  phrase  in  the  66  books  of  the 
Bible — both  Old  and  New  Testa- 
ments— in  less  than  three  seconds. 
This  incredible  speed — other  soft- 
ware takes  as  long  as  30  minutes — 
is  due  to  a  unique  indexing  and 
searching  technique  Moore  devised 
just  for  this  application.  For  ex- 
ample, you  type  "an  eye  for  an 
eye,"  and  in  the  twinkling  of  your 
own  eye  the  screen  displays  the 
three  locations  where  that  is  found. 
It  doesn't  just  tell  you  that  it's  in 
Matthew  5:38,  First  Corinthians 
15:52,  and  Exodus  21:24,  but  it 
shows  you  the  phrase  within  the 
chapters  and  verses. 


If  you  know  your  Bible,  you 
are  no  doubt  astonished  and  puz- 
zled that  "eye  for  an  eye"  appears 
in  First  Corinthians,  And  this  points 
out  one  of  the  few  weaknesses  of 
God  Speed.  It  searches  and  locates 
the  words  that  you  enter,  but  it 
doesn't  require  that  they  be  consec- 
utive within  the  verse.  The  screen 
shows  that  First  Corinthians  15:52 
says, ",  ,  .  in  the  twinkling  oi  an  eye, 
at  the  last  trump:  for  the  trumpet 
shall  sound.  .  . ."  The  verse  meets 
all  requirements — it  contains 
"eye,"  "for,"  and  "an" — so  God 
Speed  reports  it  as  a  match. 

Unlike  some  of  the  other  soft- 
ware on  the  market,  God  Speed  can- 
not perform  sophisticated  and 
lengthy  searches  based  on  logical 
ANDs,  ORs,  or  NORs,  but  the  pro- 
gram is  so  fast  and  simple  to  use  that 
this  is  easy  to  forgive.  You  can  man- 
ually toss  out  the  verses  that  don't 
meet  your  criteria — and  you  nrdght 
learn  something  in  the  process. 

A  menu  bar  across  the  top  of 
the  screen  presents  the  program's 
four  command  choices:  Help,  Find, 
Map,  and  Exit.  Press  F  for  Find  and 
then  enter  the  word  or  words  you 
want  to  look  up.  Press  M  for  Map, 
and  the  program  will  show  you  a 
distribution  for  a  word — "Love," 
for  example,  appears  310  times  in 
280  verses.  You  can  jump  immedi- 
ately to  any  book,  chapter,  or  verse 
by  entering  its  name:  GEN  1:1  takes 
you  to  the  familiar  "In  the 
beginning.  .  .  ." 

God  Speed  is  distributed  on  sev- 
en 5 'A -inch  disks  and  requires  a 
hard  disk  with  2.5  million  free 
bytes  to  install;  the  program  uses 
256K  of  RAM  memory.  If  you  have 
a  color  display,  the  program  will 
display  the  search  words  in  blue 
and  the  words  of  Jesus  in  red.  A 
smaller,  less-expensive  version 
($27)  covers  just  the  New  Testa- 
ment and  can  be  run  from  a  floppy- 
disk-based  computer. 


Apple  And  Pepsi 

If  you  liked  Lee  lacocca's  book 
about  his  rescue  of  Chrysler — and 
enough  of  you  did  to  keep  it  on  the 
best-seller's  list  for  several 
months — then  you'll  love  John 
Sculley's  book,  Odyssey,  about  his 
adventures  at  Pepsi-Cola  and  Ap- 
ple Computer. 

ScuUey  began  his  business  ca- 
reer as  a  fast- track  executive  at  Pepsi. 
He  was  a  shoo-in  for  the  top  job  but 
was  lured  away  to  become  President 
of  Apple  Computer  by  Steven  Jobs, 
one  of  Apple's  cofounders, 

Sculley  relates  many  wonder- 
ful inside  stories  about  Pepsi  and 
Apple,  He  tells  how  he  once  select- 
ed Coke  over  Pepsi  in  a  blind-taste 
test;  how  he  first  met  IBM's  legend- 
ary Tom  Watson,  Jr.,  who  swooped 
out  of  the  clouds  piloting  his  own 
stunt  plane;  how  Big  Blue  sprays 
the  apple  trees  at  its  corporate 
headquarters  so  they  won't  bear 
fruit  and  spoil  the  lawn. 

More  importantly,  Sculley 
gives  us  an  insider's  view  of  the 
running  of  Apple  Computer,  how  it 
stumbled  and  almost  failed;  and  he 
tells  of  his  painful  rescue  that  cost 
him  his  friendship  with  Jobs.  You'll 
be  privy  to  the  clashes  in  the  board 
room  and  at  the  ad  agency  as  Apple 
positioned  itself  to  challenge  IBM. 

Even  if  you  know  nothing 
about  computers,  you'll  enjoy  this 
book — it's  a  good  story,  well  told. 
Although  at  $21.95  (Harper  &  Row, 
450  pages),  you  might  want  to  wait 
for  the  paperback  edition  and  use 
your  savings  to  buy  my  book,  A 
Quick  and  Easy  Guide  to  Dow  Jones 
News/Retrieval,  from  COMPUTE! 
Books  ($10.95).  It's  not  as  long  nor 
as  entertaining  as  Mr.  Sculley's,  but 
it  might  help  you  locate  the  next 
Apple  Computer.  @ 
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The  World  Inside  the  Computer 


Fred  D'lgnozio,  Contributing  Editor 


Computers  Of  The  Future 


In  the  November  1987  issue  of 
COMPUTE!,  I  challenged  readers  to 
imagine  what  computers  would  be 
like  in  the  future.  Many  readers 
wrote  me,  and  I'd  like  to  share 
some  of  their  images  with  you. 

Wired  To  The  Brain 

The  most  popular  image  was  of 
computers  directly  wired  to  the  hu- 
man brain.  Georg  Zimmer  of  Wa- 
tertown,  Wisconsin,  wrote  that  "the 
interface  will  look  like  a  headband 
and  will  plug  into  your  computer." 
He  says  the  computer  won't  need  a 
monitor  since  its  sounds  and  im- 
ages can  be  piped  directly  into  the 
brain.  It  won't  need  a  keyboard 
since  you'll  just  need  to  think  of 
something,  and  it  will  go  directly 
into  the  computer. 

Electronic  entertainment  will 
be  much  more  realistic.  In  an  ad- 
venture game,  for  example,  Zimmer 
says,  "It  would  be  like  you  were 
actually  crawling  across  a  smoky 
battlefield.  You  could  smell  the 
smoke,  feel  the  pain,  hear  the  ex- 
plosions, and  taste  your  rations 
(yecch!)."  Georg  goes  on  to  predict 
that  "this  device  means  the  end  of 
TV.  Why  watch  Magnum  P,  I.  when 
you  can  be  Magnum  P.  I.?" 

A  New  Birthright 

C.  E.  Deckard  predicted  that  "direct 
neural  hookups  will  allow  the  com- 
puter to  process  visual  and  aural 
information  for  blind  and  deaf  peo- 
ple. It's  only  a  short  step  from  that 
to  'a  computer  in  every  head'  as  the 
birthright  of  every  true  American." 
Deckard's  line  of  reasoning 
produced  some  interesting  predic- 
tions. He  forecasted  that  teachers 
will  become  a  thing  of  the  past 
since  education  in  the  future  will 
consist  of  periodic  "curriculum 
downloads"  from  a  school  com- 
puter to  students'  neural  and  home 
computers;  and  since  the  greatest 
teachers  known  to  man  will  be  fab- 


ricated as  expert  systems  on  silicon 
chips  and  available  to  everyone  via 
broadcast  or  as  a  "whim  purchase" 
at  the  local  7-11. 

The  publishing  industry,  too, 
according  to  Deckard,  is  in  a  precar- 
ious position.  "CD-ROM,  CD-I, 
and  WORM  are  clanging  the  death 
knell  for  the  publishing  business  as 
we  know  it,"  he  wrote.  "Who  can 
afford  to  keep  (as  I  do)  yards  and 
yards  of  shelf  space  for  printed 
books,  when  the  entire  contents  of 
my  library  could  be  handled  on  a 
very  small  number  of  optical  disks 
and  include  search  algorithms  that 
are  a  bunch  better  than  my  weary 
gourd?"  As  traditional  publishers 
struggle  or  disappear,  a  new  "clan- 
destine cottage  industry"  will 
emerge  which  will  use  hi-res  scan- 
ners to  translate  printed  books  and 
magazines  into  computer  format. 

Beneath  The  SIcin 

According  to  reader  Wally  Frisbie, 
computers  in  the  future  will  invade 
the  cosmetics  industry:  "They'll 
clear  up  your  skin.  And  that's  just 
the  beginning."  Wally  foresaw  a 
computer-brain  interface  in  the 
form  of  microchips  "implanted  just 
beneath  the  skin  in  the  head." 

He  predicted  that  home  com- 
puters in  the  future  will  monitor  the 
electrical  signals  emitted  from  a 
person's  body  cells  and  be  capable 
of  curing  any  illness  while  a  person 
slept  by  altering  the  electrical  sig- 
nals and  returning  them  to  a  nor- 
mal, healthy  pattern. 

The  Sensual  Computer 

Lucy  Valka,  of  Haslett,  Michigan, 
imagined  a  writer  and  an  artist's 
computer  of  the  future.  According 
to  her,  "Since  the  computer  can 
translate  and  process  information 
so  well,  let's  give  it  eyes,  ears,  and 
speech.  For  eyes,  the  computer 
needs  two  color  cameras.  They 
need  to  have  auto  focus,  and  low 


lux,  maybe  even  infrared  and  heat 
sensitivity. 

"For  musical  applications,  we 
should  be  able  to  record  in  quadra- 
phonic sound  from  an  orchestra  or 
marching  band."  Lucy  called  for 
pocket-size  computers  which  writ- 
ers could  use  to  record  their  ideas 
while  they  were  walking  down  the 
street.  The  little  computers  would 
upload  their  information  into  the 
writer's  main  computer  which 
Valka  said  would  have  access  to  all 
the  libraries  in  the  world  and  which 
could  "multitask  when  a  writer  has 
a  leap  of  imagination." 

Almost  everyone  mentioned 
that  computers  in  the  future  should 
have  artificial  intelligence  (AI),  but 
no  one  agreed  on  what  that  should 
be.  James  Whitmore,  called  for  RI 
(Real  Intelligence)  instead  of  AL 

Whitmore  even  came  up  with 
an  entire  system  which  he  called 
DORIS,  based  on  VOS  (Voice  Op- 
erating System).  DORIS  would  get 
her  input  not  from  keyboards  but 
from  an  amazing  array  of  scan- 
ners— including  sonic  scanners, 
motion  scanners,  video  scanners, 
impulse  scanners,  analytic  scan- 
ners, and  energy  scanners.  DORIS 
would  not  use  a  monitor.  Instead 
she  would  use  a  variable  beam  gen- 
erator to  produce  a  "virtual  screen" 
made  of  colorful  3-D  holograms. 

A  New  Attitude 

Ramona  Boger,  an  accountant  in 
Spokane,  Washington,  didn't  ask 
for  her  future  computer  to  be  intel- 
ligent, just  forgiving.  She  wanted 
her  computer  to  keep  letting  her 
make  mistakes  without  complain- 
ing or  mocking  her.  "Ten  years 
from  now,"  she  writes,  "I  hope  my 
computer  will  not  change  its  atti- 
tude toward  me,  and  will  never  tire 
of  me.  The  programs,  the  speed,  the 
versatility  is  bound  to  be  exciting 
and  productive,  but  the  machine 
will  still  be  my  best  friend."        @ 


58     COMPUTEI     March  1 988 


Telecomputing  Today 


Arlan  R,  Leviton 


The  Trojan  Wars 


Telecomputing  and  the  sharing  of 
public  domain  data  is  a  way  of  life 
for  hundreds  of  thousands  of  com- 
puter users.  Unfortunately,  a  hand- 
ful of  miscreants  seem  to  want  to 
share  their  misery  with  the  rest  of 
us  as  well.  These  antisocial  folks 
write  programs  intended  to  wreak 
havoc  on  innocent  users  and  their 
computer  systems.  Such  programs, 
which  masquerade  as  useful-  code, 
are  often  referred  to  as  "Trojan 
horses"  and  have  been  around  for 
years.  As  the  popularity  of  modems 
and  downloading  public  domain 
programs  from  computer  bulletin 
boards  and  information  services  in- 
creases, the  chances  that  the  aver- 
age user  will  encounter  a  Trojan 
Horse  also  increases. 

A  nondescript  BASIC  state- 
ment for  the  Commodore  PET  is 
generally  credited  as  being  the  first 
Trojan  program.  The  one-line  pro- 
gram could  actually  damage  the 
system's  hardware,  due  to  a  design 
flaw  in  the  PET.  Since  then,  most 
Trojan  programs  have  concentrated 
on  corrupting  data  stored  on  disks. 

One  recent  Trojan  horse  pro- 
gram was  even  widely  rumored  to 
have  been  created  by  a  less-than- 
responsible  copy-protection  firm. 
The  Trojan's  description  professed 
that  it  would  remove  a  particular 
proprietary  copy-protection 
scheme.  Upon  invocation,  the  pro- 
gram would  prompt  the  user  to  in- 
sert the  original  copy-protected 
disk  and  then  would  erase  all  disk 
space  that  the  system  could  access. 
After  the  erasure,  a  stem  lecture  on 
the  evils  of  disobeying  the  terms  of 
software  licenses  was  displayed. 

Computer  Virus 

"Viruses"  are  a  new  variant  of  Tro- 
jan Horse  programs  that  are  more 
difficult  to  detect  and  control. 
When  virus  programs  are  run,  they 
typically  inject  a  lethal  bit  of  code 
into  a  file  or  disk  location  used  by 


your  computer's  operating  system. 
Viruses  even  have  an  "incubation 
period"  which  is  controlled  by  a 
counter  within  the  infecting  code. 
During  incubation,  the  virus  will 
attempt  to  spread  itself  to  any  me- 
dia that  is  inserted  in  or  attached  to 
the  infected  system. 

The  first  microcomputer  virus 
appeared  late  in  1987  and  managed 
to  infect  thousands  of  Amiga  com- 
puter systems.  Thankfully,  the 
Amiga  virus  was  relatively  benign. 
The  Amiga  virus's  mission  in  life  is 
to  write  itself  to  the  hidden  boot 
block  on  Amiga  floppy  disks,  and, 
after  infecting  a  number  of  disks, 
flash  the  message  "Your  computer 
has  a  virus"  on  the  user's  screen. 
Shortly  after  the  virus  was  detected, 
a  "cure"  program  was  written  that 
could  detect  and  remove  the  virus 
from  infected  disks  (for  more  on 
this  topic,  see  "The  Amiga  Virus," 
elsewhere  in  this  issue). 

It  didn't  take  long  for  a  new, 
more  virulent  bug  aimed  at  IBM 
PCs  and  compatibles  to  show  up. 
The  PC  virus  inserts  itself  onto  one 
of  DOS's  disk  files  and  goes  into 
incubation.  It  waits  until  it  repli- 
cates itself  four  times  and  then  at- 
tempts to  wipe  out  every  file  it  can 
lay  its  binary  fingers  on. 

How  To  Protect  Yourself 

So  what  is  the  average  telecom- 
puter  to  do?  While  some  may 
choose  to  abstain  completely  from 
downloading  or  accepting  public 
domain  program  files  from  ac- 
quaintances, such  behavior  is  con- 
trary to  the  norm  of  the  computing 
community  at  large.  If  forswearing 
shared  data  is  not  compatible  with 
your  computing  style,  there  are  a 
number  of  precautions  you  can  take 
to  minimize  the  danger  involved. 

1.  Know  where  you're  getting 
your  data.  Restrict  your  download- 
ing activity  to  commercial  infor- 
mation services  and  bulletin  boards 


that  you  know  and  trust.  While  dial- 
ing into  new  and  far  away  systems 
is  a  lot  of  fun,  it's  often  impossible 
to  tell  how  closely  system  operators 
screen  their  files. 

2.  Try  to  be  selective.  Resist  the 
temptation  to  immediately  grab 
every  new  program  that  comes 
available.  If  you  insist  on  being  a 
downloading  pioneer,  be  prepared 
for  the  occasional  arrow  in  the  back. 

3.  Take  steps  to  protect  your 
system.  Make  liberal  use  of  write- 
protect  tabs  on  your  floppies.  Hard 
disks  usually  cannot  be  physically 
write-protected  but  can  often  be 
logically  protected  by  "anti- 
Trojan"  programs  that  inhibit  disk 
write  activity  or  intercept  updates 
to  critical  operating  system  files 
(ironically,  one  such  "anti-Trojan" 
has  turned  out  to  be  a  cleverly  dis- 
guised destructive  program), 

4.  Backup  is  your  best  defense. 
Backup  data  regularly  and  keep 
multiple  backups  to  insure  that  if 
you  do  encounter  a  virus,  you  can 
fall  back  to  a  clean  operating  envi- 
ronment. Keep  the  original  disks 
from  commercial  publishers  in  pris- 
tine (write-protected)  condition  as  a 
base  to  build  upon  if  all  else  fails. 

All  warnings  considered,  it's 
important  to  keep  the  magnitude  of 
the  problem  in  perspective.  In  over 
ten  years  of  regular  telecomputing, 
using  many  different  types  of  sys- 
tems, I  have  encountered  only  a 
single  Trojan  horse  program.  While 
the  experience  of  having  one  of  my 
hard  disks  wiped  clean  in  early 
1986  was  decidedly  unpleasant,  the 
would-be  catastrophe  was  mitigat- 
ed to  an  inconvenience  by  the 
availability  of  a  system  backup  I 
had  luckily  made  the  day  before. 

Even  so,  this  Achilles  has  trad- 
ed his  thongs  for  combat  boots  and 
remembers  to  beware  of  geeks 
bearing  gifts,  © 
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AmigaView 


Sheldon  Leemon 


Third-Party  Hardware  And  Software 


In  my  last  column,  I  discussed  the 
new  Amiga  products  Commodore 
was  showing  at  the  fall  COMDEX. 
There  are,  however,  many  new 
products  on  the  horizon  from  third- 
party  developers  as  well. 

In  the  hardware  category, 
NewTek  is  developing  a  product  to 
rival  Commodore's  Professional 
Video  Adapter  for  the  Amiga  2000. 
Dubbed  the  Video  Toaster,  this 
product  will,  like  the  PVA,  include 
a  realtime  color  digitizer,  genlock 
interface,  and  field  store  for  freez- 
ing single  frames  from  live  video.  In 
addition,  NewTek's  board  will 
come  with  software  for  realtime 
digital  special  effects. 

For  example,  NewTek  demon- 
strated a  live  video  image  enclosed 
in  a  tumbling  frame.  They  also 
showed  a  live  video  image  being 
mapped  around  a  sphere  and  other 
special  effects  like  pixelization.  At 
about  $800,  the  Video  Toaster 
should  challenge  the  PV\  when  it 
appears  sometime  in  the  second 
quarter  of  1988.  NewTek  is  work- 
ing on  a  number  of  new  products, 
including  a  rumored  Digi-View  II — 
a  $300  color  frame  grabber. 

A  Faster  Amiga 

Finally  Technologies  was  showing 
off  its  Hurricane  Accelerator  board, 
a  68020  card  for  the  1000.  This  card 
plugs  into  the  68000  processor  slot, 
and  it  provides  a  14-MHz  68020 
processor  and  16-MHz  68881  co- 
processor. An  optional  board  holds 
up  to  two  megabytes  of  32-bit  dy- 
nanuc  RAM.  Finally  Technologies 
claims  that  the  Hurricane  runs  all 
standard  Amiga  software  packages 
from  four  to  eight  times  normal 
speed.  The  board  will  be  available 
for  the  500  and  2000  as  well  and 
will  cost  approximately  $1,000  in- 
cluding the  68020  and  68881  chips. 
The  optional  32-bit  memory  will 
also  be  in  the  neighborhood  of 
$1,000.  Finally  Technologies  also 


displayed  the  FourlnOne  expan- 
sion box  for  the  1000,  which  in- 
cludes a  DMA  SCSI  controller, 
512K  of  fast  RAM,  and  a  clock/ 
calendar  for  $700.  Finally  Technol- 
ogies expects  to  sell  versions  of  this 
box  for  the  500  and  2000,  which 
would  add  to  the  list  of  hardware 
manufacturers  making  DMA  SCSI 
controllers  for  the  new  machines. 
This  list  includes  Phoenix,  Pacific 
Peripherals,  and  Supra, 

In  another  encouraging  hard- 
ware development.  Progressive 
Peripherals  came  out  with  the  first 
third -party  floppy  drive  for  the 
Amiga,  The  ProDrive  external  drive 
is  less  expensive  than  the  Amiga 
1010,  quieter,  and  quite  small — 
only  a  bit  larger  than  the  bare  drive 
itself.  It  also  comes  with  a  longer 
cable  than  the  Amiga  drive,  making 
it  more  convenient  for  use  with  the 
500.  However,  unlike  the  Amiga 
external  drive,  this  one  has  no  pass- 
through  for  additional  drives,  so  it 
must  be  the  last  drive  in  the  chain. 
This  should  present  no  problem  for 
owners  of  the  500;  the  500's  power 
supply  is  really  not  meant  to  sup- 
port more  than  one  external  drive. 

The  small  power  budget  of  the 
500  means  that  owners  of  that  ma- 
chine should  be  careful  about  the 
peripherals  they  add.  Low-power 
devices  like  the  Digi-View  digitizer 
and  audio  digitizers  should  work, 
but  Commodore  does  not  recom- 
mend use  of  higher-power  boards, 
like  internal  memory  cards  which 
take  their  power  from  the  500. 
While  some  power  supplies  may 
have  enough  power  to  support 
these  cards.  Commodore  does  not 
guarantee  that  future  supplies  will. 

To  be  on  the  safe  side,  owners 
of  the  500  should  look  for  peripher- 
als that  come  with  their  own  power 
supplies.  One  such  add-on  is  the 
Byte  Box,  from  Byte-by-Byte,  This 
$300  (OK)  memory-expansion  mod- 
ule plugs  into  500's  external  bus 


connector  and  accepts  25  6K  RAM 
chips  for  expansion  from  512K  to 
two  megabytes  of  fast  memory, 
Byte-by-Byte  has  made  it  very  easy 
for  the  user  to  add  memory  chips  to 
the  Byte  Box.  They've  even  included 
a  diagnostic  program  that  displays 
the  exact  location  of  any  chips  that 
are  bad  or  are  improperly  installed. 

New  Software 

There's  plenty  of  new  software  in 
store  for  Amiga  owners  as  well. 
Progressive  Peripherals  was  pre- 
viewing Superbase  Professional,  a 
powerful  new  version  of  its  popular 
database.  It  adds  such  features  as 
keyboard  macros,  a  database  pro- 
gramming language,  a  forms  editor, 
and  a  text  editor  with  mail-merge. 
These  new  features  mean  that  you 
can  design  a  screen  display  that 
mixes  data  fields  from  separate, 
linked  databases,  and  that  mixes 
text  with  graphics  on  the  same 
screen.  Reports  can  be  '  designed 
graphically  onscreen.  You  can  even 
design  your  own  pull-down  menus 
to  replace  the  standard  Superbase 
menus,  and  you  can  custom-tailor 
data-entry  screens.  Superbase  Profes- 
sional appears  to  be  worth  the  wait. 

Some  familiar  products  have 
taken  on  a  new  look  and/or  new 
distributors.  ITC,  of  Textcraft  fame, 
had  been  working  on  DeluxeWrite 
for  Electronic  Arts  but  decided  to 
market  it  as  KindWords  through  its 
own  subsidiary,  the  Disc  Company. 
This  package  is  like  an  enhanced 
version  of  Textcraft  Plus,  featuring  a 
speU  checker,  graphics  capabilities, 
and  detailed  graphics  printer  fonts. 

Softwood  has  added  a  word 
processor  to  its  File  program,  which 
will  now  be  distributed  by  Brown- 
Wagh  as  Write  and  File.  Brown- 
Wagh  has  also  announced  that  they 
will  soon  release  Publisher  Plus  to 
replace  Publisher  WOO.  The  new 
version  will  support  laser  printers 
and  will  not  be  copy-protected.  © 
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ST  Outlook 


Philip  I.  Nelson 


Snooping  Into  Your  Disks 


Admit  it:  Most  of  us  treat  computer 
disks  like  a  magician's  silk  top  hat. 
We  toss  a  chunk  of  information  into 
the  hat,  trusting  that  it  will  reappear 
when  needed.  When  that  time 
comes,  we  perform  the  right  incan- 
tation, and — presto — changeo!  The 
same  chunk  of  information  recom- 
bobulates  itself  as  if  by  magic. 

If  it  didn't  happen  so  often — 
and  so  reliably — this  process  might 
seem  quite  remarkable.  We  create 
collections  of  information  called 
files.  A  file  can  be  anything  from 
the  text  of  this  column,  to  a  daz- 
zling arcade  game,  to  a  digitized 
image  of  your  Uncle  Charlie  whit- 
tling on  his  front  porch.  Those  files 
are  stored  as  electromagnetic  pat- 
terns of  ones  and  zeros  on  circular 
sheets  of  plastic.  By  reading  those 
patterns  from  a  whirling  disk,  the 
computer  recreates  the  file  in  its 
original  form. 

The  Veil  Removed 

This  month's  program  lets  you  pull 
aside  the  veil  and  peer  directly  into  a 
disk's  individual  sectors.  It  won't 
make  you  a  GEMDOS  expert  over- 
night, but  with  this  program  and  a 
decent  reference  book,  you'll  have 
the  basic  tools  for  learning  a  lot  about 
how  ST  disk  files  are  put  together. 

By  the  way,  if  you're  queasy 
about  tampering  with  disk  files, 
you  can  be  reassured  that  this  pro- 
gram poses  absolutely  no  danger.  It 
can  read  exactly  what's  on  any  sec- 
tor of  a  disk,  but  it  can't  change 
what's  contained  there.  So  you  can 
use  it  without  risking  the  loss  of 
valuable  information. 

The  program,  DISKPEEK.BAS, 
is  written  in  GFA  BASIC  with  lots  of 
comments  to  make  it  easy  to  trans- 
late into  other  languages.  When 
you  run  the  program,  it  prompts 
you  to  enter  the  track  and  sector 
(see  below)  you  want  to  examine.  If 
you  enter  an  illegal  value,  the  pro- 
gram puts  up  a  warning  and  invites 


Typical  Sector  Display 


Track!  2    Settor!  1    Bytes  B-Z55 


0000 

00  02  17  68  41  42  41  5J  43  41  00  DO  BO  DO  00  flO 

,  1 

foensic 

(1010 

00  52  00  00  00  70  00  00  00  70  00  09  00  70  00  00 

R.,,S...p,,.|).. 

00711 

00  70  00  09  09  70  00  00  00  70  00  00  00  79  00  00 

P 

,,p,.,p,,,p,. 

nm 

00  8E  00  00  00  BE  00  00  90  3E  00  00  00  OE  00  00 

, 

, , , , , 

nti4(i 

DO  OE  00  00  01  08  09  00  B7  E!l  00  00  OS  3E  00  00 

, 

>,, 

nm 

OS  S3  00  00  03  68  09  DO  03  6S  00  90  OS  63  00  90 

h 

,,h,,.h,,,h.. 

0960 

OS  63  00  DO  OS  68  SO  00  03  68  00  00  OS  74  00  00 

h 

..h.,.h,,,t.. 

(11170 

08  74  00  00  03  74  DO  DO  OS  74  00  09  OS  74  OS  46 

t 

..t,,,t,.,t.F 

(inan 

4C  4F  50  52  44  06  44  52  56  4E  55  49  07  53  45  44 

OPRD.DRVNOH.SID 

nmn 

45  4E  55  40  08  4E  55  40  53  45  43  54  51  03  44  55 

HUH.KOHSECTS.OU 

onnn 

40  06  54  52  48  4E  55  40  96  53  45  43  4E  55  40  06 

l.TRKNOH.SECHUH. 

nnRn 

52  45  53  55  4C  54  05  44  55  40  40  59  05  53  54  41 

lESOLT.OOHHy.STO 

oocn 

52  54  06  4F  46  46  53  45  54  01  tt   01  40  01  58  DO 

(T.OFFSET.J.K.L 

OODO 

04  42  4C  4F  48  04  41  4C  52  54  06  4f  46  46  53  45 

BLOK.OLRT.OFFSE 

OOFO 

54  0!  41  53  40  03  42  55  54  01  58  02  4B  59  OR  4E 

r.ASK.Byr.LKY.N 

BQFD 

45  57  5F  53  45  43  54  4F  52  OS  53  48  4F  5f  4C  4F 

ElJ.SECTOR,SHO.LO 

Press  SPACE  for  bytes  0-255  of  this  sector 

RETDRN  for  bates  256-512  of  this  sector 

ESC   for  a  different  track  and  sector 
CTRL-SHIFT-OLT  to  ouit 


you  to  try  again.  A  legal  entry  is 
rewarded  by  a  sector  display  similar 
to  the  accompanying  figure.  Since  a 
disk  sector  contains  too  many  bytes 
to  display  on  the  screen  at  once,  the 
program  shows  half  of  a  sector  at  a 
time,  letting  you  flip  between  the 
first  and  second  halves  by  pressing 
a  key.  Press  the  Escape  key  to  view 
a  different  sector. 

The  Basic  Scheme 

Knowing  something  about  disk  or- 
ganization will  help  you  under- 
stand what  this  program  shows 
you.  ST  disks,  like  all  others,  are 
organized  in  circular,  concentric 
tracks.  There  are  80  tracks  in  all, 
numbered  0-79.  Each  track  is  di- 
vided into  nine  512-byte  sectors, 
which  are  numbered  1-9.  If  you 
multiply  these  numbers  (80*512 
*  9)  you  come  up  with  368,640 
{360K)  bytes,  the  total  amount  of 
space  available  on  a  single-sided  ST 
disk.  A  double-sided  disk  has  infor- 
mation on  both  sides  of  the  disk, 
and  stores  twice  as  much:  737,280 
bytes,  or  exactly  720K.  The  space 
available  for  your  use  is  somewhat 
smaller,  since  GEMDOS  sets  aside 
small  areas  on  each  disk  to  keep 
track  of  your  files. 


What  you  see  on  a  given  disk 
depends  on  what  you've  stored 
there.  A  1ST  Word  document  file, 
for  instance,  contains  formatting 
characters  in  addition  to  ordinary 
text.  And  a  BASIC  program  looks 
very  different  on  disk  than  it  does 
when  listed  on  the  screen.  The  fig- 
ure shows  the  very  beginning  of 
DISKPEEK.BAS  as  it  is  stored  in 
Track  2,  Sector  1  on  a  disk  of  mine. 
(On  a  different  disk,  of  course,  the 
same  file  might  appear  on  a  differ- 
ent track  and  sector.) 

If  you  compare  the  figure  to 
the  program  listing,  you'll  notice 
that  the  program's  variable  names 
appear  in  a  bunch  near  the  begin- 
ning of  the  file.  With  DISKPEEK 
.BAS,  we  can  discover,  at  a  glance, 
that  GFA  BASIC  puts  a  variable 
table  in  its  .HAS  files,  and  we  can 
examine  that  table  in  detail. 

Where  It  All  Begins 

One  place  where  every  devoted 
disk  snooper  goes  again  and  again 
is  the  directory,  which  begins  at 
Track  1,  Sector  3,  Side  0.  Each  file 
on  the  disk  has  a  32-byte  directory 
entry,  which  records  its  name  and 
other  information  shown  in  the 
Disk  Directory  Entry  table. 
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ST  Disk  Directory  Entry 
Byte  number        Contents 


0-10 

Name  and  extension 

11 

Attribute 

12-21 

Reserved  for  future  use 

22-23 

Time  of  creation 

24-25 

Date  of  creation 

26-27 

Beginning  cluster 

28-31 

Size 

In  addition  to  existing  files,  the  directory  shows 
files  that  have  been  deleted.  With  a  little  experimenta- 
tion, you  ought  to  be  able  to  deduce  how  GEMDOS 
marks  a  deleted  file.  (Hint:  Look  at  the  first  character  of 
the  filename.) 

Disk  storage  is  a  large  topic,  one  that  can  easily  fill 
a  book.  If  you  get  interested  in  the  subject,  take  a  look 
at  ST  Disk  Drives:  Inside  and  Out,  published  by  Abacus 
Books.  I  can't  recommend  this  book  wholeheartedly, 
since  it  does  have  its  share  of  flaws.  Nevertheless,  it 
contains  lots  of  information  that's  not  easily  available 
from  any  other  source. 

Disk  Peek 

For  instructions  on  entering  this  program,  please  refer  to  "COMPUTEi's 
Guide  to  Typing  In  Programs"  elsewhere  in  this  issue. 

'  DISKPEEK.BAS   Examine  ST  disk  sectors* 

flaprd=9       !  XBIDS  routine  8  (Flaprd)  reads 

a  disk  sector* 
drvnum=0       !  Drive  0  =  A:,  1  =  B:4 
5idenum-0      I  Double-sided  disks  tiave  sides 
0  and  14 
tiu(ti5ects=l     !  Number  o-f  sectors  to  read  with 

each)  Floprd  calK 
duffl=0  !  Dummy  parameter  for  Floprd  cal 

14 
'<: 

new_sector:    I  Read  the  specified  track  and  s 

ector* 

CLS« 

blDkt«=STRINQ* (512,0)   !  5i2-byte  space  -for  sec 

tor  contents* 

INPUT  "Track  number   t0-79) "; trknum   I  Track  w 

e  want  to  read* 

INPUT  "Sector  number  (1-  '7)";secnum   !  Sector 

we  want  to  read* 

'  Flag  illegal  track/sector  choice* 

IF  trknum<0  OR  trknum>79  OR  secnum< 1  OR  secnum 

>9  THEN* 

alrtt'="Il  legal  track  (  "+STR*  (trknum) +"  )  lor  s 

ector  < "+STR* (secnum) +")"* 

ALERT  l,alrt»,l, "Oops",dum* 

GOTO  new_sectDr* 
END IF* 
'  Call  the  XBIOS  routine  Floprd  to  read  a  disk 

sector.* 
resul t=XBiaS  <f 1 oprd, L; VARPTR (bl ok*) , L: duro, drvn 
ufli, secnum, trknum, sidenum, numsects) 4 
'  Check  for  a  disk  error.  Return  code  o-f  zero 
means  no  error  occurred.* 
IF  resul t<>0  THEN* 

ALERT  l,"Disk  error! SBotta  go. " , 1 , "OK" , dummy 

* 

END* 
END IF* 
start=0* 
'* 

sho_loop:   !  Display  sector  contents* 
CLS* 

PRINT  SPACE*(10) ; "Track:  " ; trknum;SPACE» (5) ; "S 
ector:  "; secnum;* 

PRINT  SPACE* (5) ; "Bytes  "; start; "-"; start+255* 
of+set=start* 
PRINT* 


FOR  j=0  TO  15* 

o-f  f  BBt»=HEX*  (of  f  set )  * 
WHILE  LEN(of-fset*)<4* 

of-fset*="0"-*-offset** 
WEND* 

PRINT  offset*;  ■':";"  ";* 
o-f  fset=of-f  set  1-16* 
aak*=""* 
byt*=""* 
FOR  k=0  TO  15* 

x'PEEK  ( VftRPTR  (bl  ok*)  -^sta^t-^  ( 16*  j )  -^k )  * 
byt»=byt«+CHR» (x ) 4 
IF  x<16  THEN* 

ask*sask*-«-"0"* 
END IF* 

ask»=ask«-fHEX*(x)-f"  "* 
NEXT  k* 
PRINT  ask*;* 
FOR  k=l  TO  16* 

x»=MID»(byt*,k, 1)4 

IF  x«<CHR*(33)  OR  k*>"z"  THEN* 

PRINT  ".";* 
ELSE* 

PRINT  K*;* 
END IF* 
NEXT  k* 
PRINT* 
NEXT  J4 
PRINT* 

PRINT  "Press  SPACE 
sector"* 


for  bytes  0-255  of  this 
RETURN  for  bytes  256-512  of  this 
ESC  for  a  different  track  and 
CTRL-SHIFT-ALT  to  quit"* 


!  Wait  for  a  keypress.* 


You  pressed  ESC* 
Choose  new  track/secto 


PRINT  " 
sector"* 
PRINT  " 
sector"* 
PRINT  " 
get_a_key; 

ky  *=■'"* 

WHILE  ky*="" 

ky*=INKEY** 
WEND* 
IF  ky*=CHR*(27)  THEN 

GOTO  new_5ector 

r.* 
END IF* 
IF  ky*=CHR*(13>  AND  start=0  THEN* 

start=256   !  View  bytes  256-511  of  this  sect 

or* 

GOTO  sho_loop* 
END IF* 
IF  ky*=CHR*(32)  AND  5tart=256  THEN* 

start=0   I  View  bytes  0-255  of  this  sector* 

GOTO  sho_lDop4 
END IF* 
GOTO  get_a_key*  © 


To  receive  additional 
information  from 

advertisers  in  this  Issue, 

use  the  handy  reader 

service  cards  In  the 

back  of  the  magazine. 
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INSIGHT:  Atari 


Bill  Wilkinson 


More  On  Structure 


In  last  month's  column,  I  discussed 
structured  data  types.  In  the  pro- 
grann  listing,  I  then  used  a  large 
string  and  its  substrings  to  simulate 
an  array  of  records.  This  month,  I 
will  continue  my  efforts  to  help  you 
write  more  structured  programs, 
but"  first  I'll  make  some  general 
comments  on  Atari  BASIC  strings. 
I  think  that  last  month's  pro- 
gram demonstrates  that  long 
strings  can  be  just  as  powerful  as 
string  arrays.  1  would  expect  that 
program  to  operate  at  least  as 
quickly  as  an  equivalent  Microsoft 
BASIC  program  using  string  arrays, 
because  the  typical  Microsoft  im- 
plementation goes  through  a  lot  of 
overhead  generating  and  reclaim- 
ing dynamic  strings.  In  that  ex- 
ample, we  were  inserting  new 
records  into  our  string  structure.  If 
we  had  been  deleting  records,  Atari 
BASIC  really  would  have  shone. 
For  example,  suppose  we  have  a 
string  filled  with  50-character  pseu- 
dorecords.  To  delete  the  third  such 
record,  we  could  simply  do  this: 
RECORDSdOl)  =  RECORD$(151) 

Presto!  All  records  are  moved  up 
one  spot,  and  the  third  one  is  gone. 
A  small  sidetrack:  Unfortu- 
nately, one  failing  of  Atari  BASIC  is 
that  it  has  no  built-in  way  to  conve- 
niently save  and  restore  such  long 
strings  to  and  from  disk.  The  most 
common  output  method  is  to 
PRINT*  such  a  string,  but  that 
doesn't  help  a  lot,  since  INPUT*  is 
limited  to  no  more  than  255  bytes 
per  line,  1  have  seen  many  users 
resort  to  using  a  FOR/NEXT  loop 
to  PRINT*  or  INPUT*  the  individ- 
ual pseudorecords  one  at  a  time. 
That  works,  but  it  certainly  slows 
down  disk  I/O  speed.  In  BASIC  XL 
and  BASIC  XE,  we  added  a  pair  of 
special  statements  for  this  purpose 
(BPUT*  and  BGET#,  where  the  B 
stands  for  Block  or  Buffer),  but  you 
can  accomplish  the  same  thing  in 
Atari  BASIC  with  a  pair  of  fairiy 


short  USR  assembly  language  sub- 
routines. (These  routines  have  been 
published  several  times,  and  I 
won't  repeat  them  this  month.) 

Out  Of  Sorts 

To  continue  my  discussion  of  how 
to  achieve  structured  data  features 
in  Atari  BASIC,  I  call  your  attention 
to  Program  1.  Study  it,  type  it  in, 
and  run  it.  It  is  a  fairly  clumsy  but 
working  record-sort  routine.  That 
is,  it  sorts  the  kinds  of  pseudorecord 
strings  that  we  also  used  in  last 
month's  program.  (Incidentally,  I 
have  used  the  worst  of  all  possible 
sort  algorithms:  the  bubble  sort. 
Please,  if  you  are  serious  about  sort- 
ing your  data,  learn  a  couple  of  other 
methods,  such  as  the  heap  sort, 
Shell  sort,  and  quicksort.  Why  do  I 
use  the  bubble  sort?  Because  it  is  the 
smallest  and  easiest  to  demonstrate. 
Or  maybe  because  I'm  just  lazy.) 

As  you  study  that  listing,  pay 
attention  to  lines  230-260,  where  the 
tests  and  swaps  necessary  to  any  sort 
routine  are  made.  Because  I  purpose- 
ly organized  the  data  in  my  array  of 
pseudorecords  in  the  worst  possible 
way  (for  a  bubble  sort,  at  least),  the  IF 
test  vrill  never  branch  around  the 
swap,  and  we  vkoll  make  more  than 
4900  of  these  string  swaps.  Surely 
there  must  be  a  better  way. 

Pointing  Tt^e  Finger 

Time  to  introduce  another  concept 
from  the  structured  languages.  In 
any  computer  language,  moving 
blocks  of  data  around  (whether  re- 
cords, pictures,  disk  blocks,  or 
whatever)  is  time-consuming.  So 
most  programs  don't  actually  move 
the  data.  Instead,  they  move  point- 
ers to  the  data. 

What  is  a  pointer?  Quite  sim- 
ply, a  pointer  is  a  variable  that  con- 
tains the  address  of  another 
variable.  Atari  BASIC  allows  only 
one  explicit  kind  of  pointer — the 
ADR  function  that  gives  the  ad- 
dress  of   a   string.   And,   indeed. 


many  programmers  use  ADR  as  a 
pointer  when  they  pass  the  address 
of  a  string  to  an  assembly  language 
subroutine.  (Imagine  having  to  pass 
the  bytes  of  a  string  through  a  series 
of  POKES.) 

But  there  is  another,  hidden 
kind  of  pointer  in  almost  any  com- 
puter language:  array  and  string  in- 
dices. As  an  example,  if  the  record 
data  we  are  working  on  is  always 
within  a  particular  string,  for  ex- 
ample, then  we  need  only  know  the 
relative  posidon  of  a  given  record 
within  the  string  in  order  to  obtain 
its  information.  We  most  likely  do 
not  care  about  the  actual  physical 
memory  address  of  the  data. 

Merge  the  lines  shown  in  Pro- 
gram 2  to  those  already  in  place  in 
Program  1  (deleting  the  three  lines 
noted)  and  study  the  results  of 
using  implicit  pointers.  There  is 
(rather  obviously)  little  difference 
between  the  two  programs.  Instead 
of  swapping  actual  substring  pseu- 
dorecords, we  are  now  swapping 
only  the  indices  into  the  master 
string.  When  you  run  this  second 
version,  you  should  notice  a  speed 
improvement  of  almost  2:1.  (I  got 
70.8  seconds  versus  135,3  seconds, 
but  that  was  done  using  the  FAST 
mode  of  BASIC  XL.  Your  times  will 
likely  be  slower.) 

As  clever  as  this  trick  is,  it  does 
not  answer  all  of  a  programmer's 
needs.  Suppose,  for  example,  that 
the  data  to  be  sorted  resides  in  two 
or  three  different  arrays.  The  logis- 
tics in  BASIC  get  complicated.  In  a 
language  with  more  data  structur- 
ing capabilities,  where  a  pointer  can 
point  to  a  given  record  type  no 
matter  where  the  record  might  be, 
such  a  division  of  data  would  prob- 
ably make  virtually  no  difference 
on  program  speed. 

Enough  for  this  month.  Next 
month,  we  will  go  back  to  the 
acrostics  puzzle  of  the  December 
issue,  since  it  generated  more  mail 
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for  me  than  any  topic  in  recent 
months.  If  I  have  managed  to  con- 
vince you  that  records  and  pointers 
are  valuable  tools,  wait  until  you 
see  my  proposed  solution  to  the 
acrostics  problem! 

Program  1 

a  100    DIM  TEST»( 10000) , TEMP 

« ( 100) , BLANK$ ( 100) 
NK110  BLANK«="  ":BLANt<«(100 

)-"  " :BLflNK» (2) =BLANK 

« 
HI  120  FOR  R1  =  0  TO  99:RPTR  =  R 

1*100+1 
6D  130  TEST*  (RPTR)="THI3  IS 

RECORD  NUMBER  " 
hP  140  rEMP»  =  STR»  (199-Rl  )  s  TE 

MP»(4)=BLANK» 
DN150  TEST«(RPTR  +  22>=TEMP»( 

2> 
FO  160  NEXT  Rl 
!F  170  REM  OUT  OF  ORDER...  SO 

RT  THEM 
LF  180  POKE  20,0iPOKE  19,0 
BP  190  FDR  Rl=9a  TO  0  STEP  - 

1 
Jft200  FOR  R2=0  TO  Rl 
JC210  PTR1=R2*100+1 
Nil  220  PTR2  =  PTR1  +  100 
NC  230  IF  TEST*  (PTRl,PTRl+99 

XTEST*  tPTR2,  PTR2  +  99) 
THEN  270 
PJ  240  TEMP»-TeST*  (PTRl.PTRl 

+  99) 
60  250  TEST*  (PTRl  ,PTR1+99)=T 

EST* (PTR2,PTR2+99) 
PN  260  TEST*  (PTR2,  PTR2  +  99)=T 

EMP* 
FN  270  NEXT  R2 
NA  280  PRINT  "  «  "  ; 
FK  290  NEXT  Rl 
CO  300  PRINT 
GF310  T1CK  =  PEEK  (20)  :  TOCK  =  PE 

EK(19):IF  TICK<>PEEK{ 

20)  THEN  310 
EP  320  TIME-TICK  +  256«T0CK 
Bt330  PRINT  "THAT  TOOK  "jTI 

ME/60;-'  SECONDS" 
tE340  PRINT  "HIT  RETURN  TO 

SEE  LIST  "s 
It  350  INPUT  TEMP* 
mZ60    FOR  R1=0  TO  99:RPTR=R 

1«100+1 
CF  370  PRINT  TEST»<RPTR,RPTR 

+  99) 
FN  380  NEXT  Rl 


Program  2 


CJ  105  DIM  RPT  (99) 

OH  125  RPT  (Rl  )  -RPTR 

KC210  PTR1=RPT(R2) 

C(l  220  PTR2  =  RPT  (R2+1  ) 

CS  230     IF     TEST»(PTR1  ,  PTRl+99 

)  >TEST*  <PTR2, PTR2  +  99) 
THEN  RPT (R2) =PTR2; RP 

T  (R2+1 ) =PTR1 
EK240  REM  DELETE 
PE  2S0  REM  THESE 
EL260  REM  3  LINES! 
BD  360  FDR  R1=0  TO  99:RPTR  =  R 

PT(Rl)  rf» 


Cursor  Plus 


Emmanuel  Gendrono  and  Greg  Knauss 


Add  even  more  power  to  the  Atari 
400,  800,  XL,  and  XE  editor  device. 
Compatible  with  most  environments 
and  programs. 


Atari  computers  have  the  most 
powerful  screen  editing  features  of 
any  eight-bit  computer.  "Cursor 
Plus"  extends  the  editor  even  fur- 
ther, adding  functions  to  move  the 
cursor  by  one  word,  change  the 
case  of  an  entire  screen  line,  delete 
the  remainder  of  the  line,  and  more. 
Cursor  Plus  is  compatible  with 
most  programs  that  use  the  E:  edi- 
tor device.  This  includes  Atari 
BASIC,  BASIC  XL,  MAC/65,  and 
other  environments.  It  does  not  in- 
clude programs  that  use  their  own 
editors,  such  as  Action!,  Atariwriter, 
and  Atari's  MEDIT  editor. 

Typing  It  In 

Cursor  Plus  works  on  all  Atari 
eight-bit  computers.  Type  it  in  and 
save  it  to  tape  or  disk.  The  program 
is  written  in  BASIC,  but  it  creates  a 
machine  language  program  when  it 
is  run. 

After  saving  the  program,  type 
RUN.  You'll  be  asked  if  you  want  to 
save  a  copy  or  install  it  in  memory. 
If  you  have  a  disk  system,  you  must 
choose  the  option  to  save  a  copy. 
The  program  asks  for  a  filename 
with  which  to  save  Cursor  Plus,  Be 
sure  to  use  a  name  that's  different 
from  the  one  you  used  to  save  the 
creator  program.  After  the  machine 
language  program  has  been  written 
to  disk,  you  can  install  Cursor  Plus 
by  going  to  DOS  and  using  the  L 
option  to  load  it.  Alternatively,  you 
can  name  the  file  AUTORUN.SYS, 
causing  the  program  to  install  auto- 
matically whenever  you  boot  up 
the  computer. 

If  you  have  a  tape  system, 
choose  the  memory  option. 


The  New  Editor 

When  you're  using  Cursor  Plus,  all 
of  the  regular  cursor  movement  and 
editing  capabilities  are  still  in  effect. 
In  addition,  Cursor  Plus  adds  the 
following  controls: 

•  Control-ESC  Go  to  the  end  of  the 
line.  This  command  moves  the  cur- 
sor to  the  end  of  the  physical  screen 
line  (not  the  logical  line). 

•  Control-Shift-RETURN  Go   to 

the  beginning  of  the  line.  This  com- 
mand moves  the  cursor  to  the  be- 
ginning of  the  physical  screen  line. 
It  does  not  enter  the  line,  as  a  regu- 
lar RETURN  would. 

•  Control-Shift-(minus  sign)  Go  to 
previous  word.  This  command 
moves  the  cursor  to  the  word  im- 
mediately to  the  left  of  the  current 
cursor  position. 

•  Control-Shift-(equals  sign)  Go  to 
next  word.  This  command  moves 
the  cursor  to  the  word  immediately 
to  the  right  of  the  current  cursor. 

•  ControI-Shift-SPACE  Delete  to 

end  of  physical  line.  This  command 
deletes  everything  after  the  current 
cursor  position  to  the  end  of  the  line. 

•  Control-Shift-Caps  Change  case 
of  the  rest  of  the  physical  line.  This 
command  begins  at  the  current  cur- 
sor position  and  changes  all  lower- 
case letters  to  uppercase  and  all 
uppercase  letters  to  lowercase.  Sin- 
gle words  can  be  changed  by  cur- 
soring  to  the  beginning  of  the  word, 
changing  the  case  of  the  rest  of  the 
line,  cursoring  to  the  next  word, 
and  changing  the  case  again. 

•  Control-Shift-Inverse  Change 
regular  text  to  inverted  text  and  in- 
verted text  to  regular  text.  This 
command  is  similar  in  operation  to 
the  change  case  command.  It  begins 
at  the  current  cursor  position  and 
changes  the  high  bit  of  all  of  the 
text  to  the  end  of  the  physical  line, 
thus,  changing  inverted  letters 
(blue  on  white)  to  normal  letters 
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(white  on  blue),  and  back. 

•  Shift-Inverse  Change  case  of  one 
letter.  This  command  is  similar  to 
Control-Shift-Caps,  except  that  it 
changes  the  case  of  only  one  char- 
acter. This  keypress  also  advances 
the  cursor  by  one  character,  so  you 
can  repeatedly  press  Shift-Inverse 
to  change  the  case  of  a  range  of 
characters. 

•  Control-Inverse  Change  one 
character  from  normal  text  to  in- 
verted text,  or  back.  This  command 
is  similar  to  Control-Shift-Inverse, 
but  it  changes  the  high  bit  of  only 
one  character.  Like  Shift-Inverse,  it 
advances  the  cursor,  making  it  easy 
to  change  a  range  of  characters. 

•  Control-Clear  Move  cursor  to  the 
home  position  (top  left  of  screen). 
This  command  normally  clears  the 
screen.  In  Cursor  Plus,  however,  it 
simply  moves  the  cursor  to  home 
without  clearing  the  screen.  Use 
Shift-Clear  to  clear  the  screen. 

•  Control-Shift-Clear  This  com- 
mand places  the  cursor  in  the  mid- 
dle of  the  screen. 

Cursor  Plus  survives  SYSTEM 
RESET,  Disable  it  by  turning  off  the 
computer.  This  is  the  only  way  to 
recover  the  memory  used  by  the 
program. 

Cursor  Plus  Creator 


M  1000 

in  1010 


LB  1020 


AI  1030 
KB  1040 


BJ  1050 
HP  1060 


PC  1070 


REM  CURSOR  PLUS 

REM  COPYRIGHT  198B  C 

□MPUTE!  PUB. 

REM  ALL  RIGHTS  RESER 

VED 

REM  D: CURSOR. BAS 

DIM  ID*(15) :OPEN  #1, 

1  2  ,  0  ,  "  E  :  " 

POKE  710,0:PQKE  82,1 

?  "{CLEflR>{2  DOWNJ 

<DOMN>" 

?  "  CTAS>COPYRIGHT  19 

SB  COMPUTE!   {3  DOWNJ 


M1080  ?  "  WiU*TrT:B   to  ere 
ate  ob J  ect  file 
<DOWN>" 

IH  1090  7  "  ».-^=<BJ^J   to  ins 
tall  CURS0R-)-(3  DOWN} 

■I 

tfll00  CN=PEEK(53279) : IF  CN 

-7  THEN  1100 
HII1110  POKE  53279,0!  REM  cli 

ck 
Aeil20  IF  CN=3  THEN  1150:  RE 

n    make 
BP1130  IF  CN=5  THEN  1240SRE 

M  do  it  noM 
HE  1140  GOTO  1  100 
FP1150  REM  m^:}=i:lii=m**m=m 
PH1160  7  "EntBT  0EVICE:FILE 

SPEC  >"; 
m 1 170  INPUT  #1, ID*!? 


011180  CLOSE  tt3iTRAP  1320:0 

PEN  #3,8,0, ID* 
OP  1190  RESTORE 
C«  1200  READ  D:IF  DO-1  THEN 

PUT  #3, D: GOTO  1200 
HD  1210  CLOSE  #3:7  "DONE" 
HK  1220  GOTO  1350:  REM  Wait 
JN  1230  END 

60  1240  REM  »<;b*f:1W^  f  now 
KE  12S0  7  :  IF  PEEK<145)  >=96 

THEN  7  "Memory  cpn-fl 

let ! "! GOTO  1350 
BE  1260  7  "LOADING  AT...   ";; 

RESTORE  I  READ  L,D 
(5  1270  READ  L  ,  D:  X=L  +  D*256:  A 

"Xl?  XiBDTO  1290 
ES  1280  READ  L  ,  Di  A-Li-Dt25&:  I 

F  L=-l  THEN  L=USRCX+ 

3) 
KP1290  READ  L,  D:  B-L+DIZ56 
110  1300  FOR  L-fl  TO  B:READ  D: 

POKE  L.DiNEXT  L 

EC  1310  7  :BOTD  1280 

H   1320  REM  ■drl.l.l:.MJ:l:U 

KB  1330  IF  PEEK(195)=130  THE 

N  7  "BAD  DEVICE":GQT 

O  1350 
PK  1340  7  "t«««ERROR  -  " ;  PEE 

K( 195) 

CC  1350  REM  ■;i:>**   

16  1360  ?  !?  "Press  l--l^iiinT  t 

o  cont  inue  " ; 

INPUT  ttl , ID* 

GOTO  1060! REM  rester 

t 

nnsEM 


!(l  1370 

OP  1380 

PH  1390 

DL  1400 


REM 


USB 


ItE  1 4  1 0 


HJ  1420 


LB  143  0 


LA  1440 


01  14S0 


DA  1460 


Ce  1470 


JF  1480 


KF  1490 


DATA  255,255,0,96,23 

1,96,76,201,97, 104, 1 

69, 160,72, 169,0,72, 1 

33,8,240,242,67,85,8 

2  83 

DATA  79,82,43.32,32, 

86,69, 82, 83, 73, 79, 7B 

,32,31,46,48,32,32,5 

6,45,49,45,36,55 

DATA  155,138,72,152, 

72,  160,  10,  173, 9,210, 

217, 165,97,240, 10,13 

6, 16, 24B, 104, 16Q, 104 

, 170, 76, 190 

DATA  255, 165, 38, 72, 1 

65,89,72, 166,84, 240, 

16,24, 169, 40, 101,88, 

133,88, 169,0, 101,89, 

133,89 

DATA  202,208,240,240 

,61, 169, 23, 164,82, 13 

3,84, 132,85, 169, 143, 

208, 96, 160,20. 1^9, 10 

,208, 242, 164 

DATA  83, 177, BB,41 , 12 

7, 208,69, 136, 177, BB, 

41, 127,208,71, 196,82 

,240,2, 176,243, 164,8 

3, 16,61 

DATA  169,0,133,93,16 

0,39,  196,85,  144,5,  14 

5,88, 136, 16,247,56, 1 

76,35, 152,240, 192, 13 

6,240, 201 

DATA  136,240,204,136 

,240, 222, 136, 240,223 

,136, 240,44, 136,240, 

43, 136,240,70, 136, 24 

0,80, 136,240,56 

DATA  208, 122, 164, S5, 

136,  196,82,  176,4,  176 

,  172,  164,83,  132,85,  1 

69, 133, 141,252,2, 104 

, 133, 89, 104 

DATA  133,88,104,168, 

104, 170, 104,64, 162, 1 

28, 165,93,73, 128, 133 


nL  1S00 


LA  1510 


H  1520 


DH  1530 


EI  1540 


LK  1550 


LE  1S60 


JB  1570 


OE  1SB0 


KL  1 58 1 


isas 


HK  1590 


HH  1600 


LI  1610 


U   1620 


ED  1630 


IL  1640 


F!  16S0 


,93, 232, 48, 228, 164,8 

3, 177, 88, 73 

DATA  128,145,88,136, 

196. 85. 240. 202.240.7 
2, 176, 241 , 144, 196, 14 
4, 140, 164,85, 252,96, 
247,97, 16, 1 1 

DATA  173,9,210,201 , 1 
03,240, 196,208, 181,1 
64,8  3, 177, as, 170,41 , 
63,201, 33, 144, 13, 144 
, 179, 144, 168 
DATA  201,59,176,5,13 

8. 73.64. 145. 88. 196.8 

5. 240.3. 136. 16.227. 1 
38, 209, GB, 240, 211,16 
5, 93, 73 

DATA  64, 133,93,56, 17 
6, 202, 176, 141, 208, 53 
, 164,83, 16, 139, 164, S 
5, 136,48,247, 177,68, 
41 ,63,201 
DATA  16,176,17,136,4 

8. 236. 177.88. 41 . 63.2 
01,16,  176,6,  196,82,  1 
76,241, 144, 158, 136,4 
8, 219, 177 

DATA  88,41,63,201,16 

,  144,  173,  192,0,  16,  24 

1 ,48,205,  144,  167,  164 

,85, 200, 17  7, BB, 41 , 63 

,201 , 16 

DATA  144,18,201,26,1 

44,8,201,32, 144, 10,2 

01,59, 176,6, 196,B3, 1 

44,231, 176,25,200, 17 

7,68,41 

DATA  63,201,  16,  144,  1 

2,201,26, 144, 212,201 

,32, 144,4,201  ,59,  144 

,204, 196, 63, 144, 231 , 

176, 143 

DATA  182,246,156,204 

,225, 167,231, 103,252 

,206, 207 

REM  HOME, MIDHDHE, END 

LINE,STARTLINE, ZEROL 

INE, INVERSE, INVERSEL 

INE, CAPS, CAPSL INE,  MO 

RDLeFT,WORDRIBHT 

DATA  169,0,141,8,2,1 

69,0, 141,9,2, 169,0, 1 

33,  2 

DATA  169,0,133,3,165 

,9,9,2, 133,9,96,173, 

S,2,  141, 65,96,  173,9, 

2, 141, 66, 96, 173 

DATA  231,2,  133,0,  141 

, 177,97, 173,232,2, 13 

3, 1, 141, 182,97,24, 16 

5,0, 105, 133, 141, 187, 

97, 163 

DATA  1,  105, 1,  141, 191 

,97,24, 165,0, 105,248 

, 97,67,98, 122, 141,53 

,96, 163, 1, 105, I, 141, 

54 

DATA  96,160,0,185,43 

,96, 145,0, 136,206,24 

8,238,7,98,230, 1, 173 

,7,98,201,98, 144,236 

,24 

DATA  169,160,109,231 

,2,  141,231,2,  169. 1,  1 

09,232,2, 141,232,2, 1 

69. 14. 141.68.3. 169.9 
6,  141 

DATA  69, 3, 141 ,73,3, 1 
69,9, 141 , 66, 3, 162,0, 
32, 86, 22B, 76, 176,97, 
224,2,225,2,201,97, - 

END  :REM 
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Math  Graphics 
For  The  IBM  PC 


If  you  think  that  math  is  boring,  then 
you  have  a  pleasant  surprise  in  store. 
With  these  two  programs  you  can 
either  custom  design  your  own  daz- 
zling Math  Graphics  or  you  can  sit 
back,  let  the  computer  do  all  the  work, 
and  enjoy  a  beautiful  graphics  show. 
A  color/graphics  adapter  or  equiva- 
lent hardware  is  required,  along  with 
BASICA  for  the  PC  or  GW-BASICfor 
compatibles. 


While  your  computer  can't  create 
pictures  without  a  paint  program,  a 
graphic  pattern — which  can  be  the 
result  of  a  mathematical  formula — 
is  often  surprisingly  easy  to  create. 
In  fact,  if  you  have  a  flexible  formu- 
la, you  can  create  thousands  of  im- 
ages by  simply  varying  the  formula. 
One  program  that  has  done 
this  well  is  "Math  Graphics,"  ver- 
sions of  which  have  been  published 
in  COMPUTE!  for  three  different 
computers:  Amiga,  Apple  II  series, 
and  Atari  ST.  Because  of  the  beauti- 
ful graphics  generated  by  this  pro- 
gram, I  decided  to  design  a  PC 
version,  but  with  a  major  enhance- 
ment, "Math  Graphics  Construc- 
tion Set." 

Getting  Started 

Since  both  "Demo"  (Program  1) 
and  "Construction  Set"  (Program 
2)  are  written  entirely  in  BASIC, 
just  type  each  one  in  and  save  a 
copy  of  each  to  disk.  To  see  the 
demonstration  program,  load  it, 
type  RUN,  sit  back,  and  enjoy. 

If  the  demonstration  program 
piques  your  interest  in  creating 
graphics  of  your  own,  you'll  want 


Jay  Seaver 


to  explore  the  Construction  Set  pro- 
gram. When  you  first  run  the  Con- 
struction Set,  you'll  see  a  large 
menu.  Understanding  this  menu  is 
the  key  to  using  the  program. 

Constructing  Math 
Graphics 

When  you  first  run  the  Construc- 
tion Set,  the  menu's  19  numbered 
options  have  values  assigned  to 
them.  The  prompt  at  the  bottom  of 
the  screen  asks  you  to  Enter  number 
to  modify,  20  to  RUN,  21  to  QUIT.  By 


Several  complex  geometric  designs  are 
showcased  in  the  "Math  Graphics" 
demo  program. 


The  "Math  Graphics  Construction  Set" 
offers  a  menu  that  makes  it  easy  to 
change  parameters  for  altering  images. 


typing  the  number  of  one  of  the 
options  and  then,  when  prompted, 
the  new  value  you  wish  to  assign  it, 
you  change  the  way  the  final  pic- 
ture is  formed.  To  see  the  default 
Math  Graphic,  choose  option  20 
from  the  menu.  If  you  want  to  re- 
turn to  the  menu  before  the  Math 
Graphic  is  finished  forming,  simply 
press  any  key.  Let's  take  a  look  at 
each  option. 

Options  1-4  are  the  R  values, 
which  define  the  shape  of  the 
graphic.  Note  that  Rl,  R2,  R3,  and 
R4  modify  XI,  Yl,  X2,  and  Y2,  re- 
spectively. To  get  an  idea  of  how  to 
use  the  construction  set,  change  the 
value  of  Option  1  to  20  and  then 
view  the  graphic. 

Options  5  and  6  define  the  lim- 
its of  the  theta  loop  in  terms  of  pi.  If 
the  difference  between  these  values 
is  exactly  2,  the  picture  will  be 
drawn  once  and  won't  be  retraced. 
If  the  difference  is  more  than  2, 
parts  or  all  of  the  picture  will  be 
retraced  and  will  change  color.  If 
the  difference  is  less  than  2,  an 
incomplete  drawing  will  result. 

Option  7's  value  is  divided  into 
pi  to  determine  how  quickly  the 
theta  loop  proceeds  from  one  end  to 
the  other.  If  Option  6  is  less  than 
Option  5,  Option  7  should  be  a 
negative  number.  To  see  how  this 
parameter  changes  the  image,  try 
changing  the  value  of  Option  7  to  8 
and  view  the  graphic. 

Options  8-1 1  are  the  offsets  for 
XI,  Yl,  X2,  and  Y2,  respectively. 
Because  each  value  is  divided  into 
pi,  the  lower  the  number,  the  larger 
the  offset.  The  default  for  these  op- 
tions is  10,000,  so  any  offset  will  be 
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imperceptible. 

Options  12  and  13  are  the  start 
and  end  of  a  second  theta  loop.  Use 
these  options  like  5  and  6  above. 

Option  14  is  the  increment  for 
the  second  theta  loop.  Use  it  just 
like  Option  7. 

Options  15-18  decide  which 
theta  loops  XI,  Yl,  X2,  and  Y2  will 
use.  If  you  don't  want  to  use  the 
second  theta  loop  at  all,  set  all  of 
these  to  1.  Changing  these  values 
can  produce  dramatic,  exciting 
changes  in  your  graphics.  For  ex- 
ample, exit  the  program  by  choos- 
ing option  21  from  the  menu  and 
type  RUN  (or  Press  F2),  so  you'll 
start  with  the  Construction  Set's  de- 
fault values  in  place.  Now  change 
Option  13  to  6,  so  you'll  have  a 
second  theta-loop  value,  and 
change  both  Options  15  and  18  to 
1,  so  they  each  use  the  second  loop. 
Now  you  can  view  the  graphic. 

Option  19  lets  you  choose 
which  color  palette  to  use.  It  accepts 
a  number  from  0  to  3.  See  the  table 
for  the  colors  associated  with  each 
number. 

Color  Palette  Numbers 

Palette  Colors 

0  green,  maroon,  brown 

1  pale  green,  purple,  while 

2  green,  pink,  brown 

3  pale  green,  red,  white 

Option  20  displays  the  current 
graphic.  Option  21  returns  you  to 
BASIC. 

For  instructions  on  entering  ttiese  programs, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Progroms"  elsewhere  'n  ttiis  issue, 

Program  1 :  Matti  Graphics 
Demo 

M  100   KEY  OFF 

DI  110  '  Mathgraphics  For  the  IB 

M  PC 
HL  120  '  Copyright  19B8  COMPUTE! 
Publications,  Inc.  —  Al 

1  Rights  Reserved 
DJ  130  CLS:  WIDTH  40:LOCflTE  1,10: 

PRINT"MathGraphic5  Demo 
ED  140  LOCfiTE  3,  1 :  PRINT"Copyrig 

ht  1988  COMPUTE!  Publ . ,  I 

nc.  " 
U  150  LOCATE  4,'?:PRINT"A11  Righ 

ts  Reserved" 
5J  160  LOCATE  22, 8:  PRINT"Press  A 

ny  Key  To  Begin" 
£S  170  K»=INKEYS:IF  K»=""  THEN  1 

70 
a    180  GOSUB  2320 
no  190  ■  Module  #1  -  RightDvals 
U   200  R1=150:R2=25;R3=25:R4=85 
U  210  INC=PI/64 
PL  220  FOR  THETA=0  TD  PI*4  STEP 

INC 
CD  230   X1=FNP0LARX(R1,  THETA) 


FJ 

240 

JE 

250 

hP 

260 

LD 

270 

6t 

280 

OD 

290 

81 

300 

fa 

310 

OB 

320 

LM 

330 

JD 

340 

CD 

350 

FO 

360 

F3 

370 

IP 

380 

KI 

390 

FK 

400 

NF 

410 

GE 

420 

JC 

430 

06 

440 

LC 

450 

Kl 

460 

M 

470 

FD 

480 

Bl 

490 

m 

500 

LK 

510 

FP 

520 

SF 

530 

KL 

540 

!F 

550 

PL 

560 

LH 

570 

CN 

580 

PC 

590 

m 

600 

K 

610 

u 

620 

CD 

630 

HK 

640 

m 

650 

HA 

660 

DL 

670 

PA 

680 

UK 

690 

JP 

700 

CP 

710 

EH 

720 

FA 

730 

IL 

740 

LE 

750 

ej 

760 

OE 

770 

HF 

780 

HO 

790 

BL 

800 

EN 

810 

IB 

820 

S? 

830 

n 

840 

a 

850 

FD 

860 

Yl=FNPaLARY(R2, THETA ) 
X2=FNPDLARX  CR3, THETft+PI > 
Y2=FNP0LARY  <R4, THETA+PI > 
KOLOR=KDLaR+l:IF  KOLaR-4 
THEN  KOLOR=1 

LINE  tXl,Yl)-(X2,Y2),K0L 
OR 

NEXT  THETA 
GQSUB  2380 

'Module  #2  -  SideDvals 
R 1 = 1 50 : R2=3S :R3=65:R4=a5 
INC=PI /64: DFFSET=PI/3 
FOR  THETA=1  TD  6tPI  STEP 
INC 
X1=FNPDLARX (Rl, THETA) 
Y 1 =FNPOL ARY ( R2 , THETA ) 
X2=Ff>JPDLARX  ( R3 ,  THET A+DFF 
SET) 
Y2=FNPQLARY (R4, THETA) 
K0L0R=K0L0R+1:IF  KaLQR=4 
THEN  KOLaR=l 

LINE  (X1,Y1)-(X2,Y2),KDL 
DR 

NEXT  THETA 
BDBUB  2380 

'Module  #3  -  TwistedBand 
R1=1S0: R2=35: R3=65! R4=a5 
INC=PI<'64:aFFSET=PI/3 
FOR  THETA=1  TO  6«PI  STEP 
INC 
X 1 =FNP0LARX ( Rl , THETA ) 
Y1=FNPQLARY (R2, THETA) 
X2=FNPaLARX (R3, THETA) 
Y2=FNP0LARY (R4, THETA+DFF 
SET) 
KOLOR-KOLDR+l: IF  K0LaR=4 
THEN  KOLaR=l 

LINE  (X1,Y1)-(X2,Y2) ,K0L 
OR 

NEXT  THETA 
GOSUB  2380 

'Module  #4  -  TiltedDvals 
Rl=lS0:R2=35:R3=65;R4=a5 
INC=PI/64!0FFSET=PI/3 
FOR  THETA=1  TD  6tPI  STEP 
INC 

X 1=FNP0LARX (Rl , THETft+OFFS 
ET) 

Y1=FNP0LARY(R2, THETA) 
X2=FNP0LARX (R3, THETA) 
Y2=FNP0LARY(R4, THETA) 
K0LaR=f<OLOR+l:IF  K0L0R=4 
THEN  KOLaR=l 

LINE  (X1,Y1)-(X2,Y2),K0LQ 
R 

NEXT  THETA 
GOSUB  2380 

'Module  #S  -  StretchedOva 
Is 

Rl=150: R2=35: R3=65: R4=85 
I NC=P I / 64 : DFFBET=P 1/3 
FDR  THETA=1  TD  6*PI  STEP 
INC 
X 1 =FNPOLARX ( R 1 , THETA ) 
Y1=FNP0LARY  tR2, THETA+DFF 
SET) 
X2=FNP0LARX  tR3, THETA) 
Y2=FNP0LARY(R4, THETA) 
K0L0R=K0L0R+lt IF  KQL0R=4 
THEN  K0L0R=1 

LINE  (X1,Y1)-(X2,Y2),K0L 
DR 

NEXT  THETA 
GDSUB  2380 

'Module  «6  -  Kulti Lobes 
Rl=100 
1NC=PI/12B 
L0BES=4 

FOR  THETA=0  TD  4tPI  STEP 
INC 
R2=R1*SIN(L0BES*THETA) 
X1=FNPDLARX(R2, THETA) 
Y 1 =FNPDLARY ( R2 , THETA ) 


W  870   K0L0R=K0LDR+1: IF  K0L0R=4 

THEN  KDLDR=1 
PP  880   LINE  (XCENTER,YCENTER)-( 

X1,Y1),K0L0R 
PJ  890   NEXT  THETA 
6H  900  BOSUB  2380 
OK  910  'Module  #7  -  SpiralCone 
SD  920  R1  =  100:R2=85 
A6  930  INC=P1/'160 
a  940  L0BES=3 
EE  950  FDR  THETA=0  TO  4«PI  STEP 

INC 
HF  960  X1=FNP0LARX(R1,THETA*L0BE 
S) 
Y1=FNPDLARY (R2, THETA) 
K0LDR=K0LDR+1: IF  K0L0R=4 
THEN  KQL0R=1 

LINE  CXCENTER,YCENTER)-t 
X1,Y1),KOLOR 
NEXT  THETA 
LP  1010  GDSUB  2380 
DI  1020  'Module  #8  -  SideSpiralC 

one 
6N  1030  R1  =  130:R2=80 
6K  1040  INC=PI/160 
1050  LDBES=3 

1060  FOR  THETA=0  TO  4«PI  STEP 
INC 

X1=FNP0LARX (Rl , THETA) 
Yl-FNPDLARY (R2, THETA»LQ 
BES) 

K0L0R=KDLDR+-1:IF  KDLDR* 
4  THEN  KQL0R=1 
L I NE  ( XCENTER , YCENTER ) - 
(XI, YD (KQLOR 
NEXT  THETA 
1120  BOSUB  2380 
1130  'Module  #9  -  Circles 
1140  R1=115:R2=B5:R3=40:R4=45 
1150  INCi=PI/3: INC2=PI/20 
1160  FOR  THETA 1=0  TD  PI«2  STE 
P  INCl 

FOR  THETA2=0  TO  PI»2  ST 
EP  INC2 

X1=FNP0LARX(R1,THETA2) 
Y1=FNP0LARY (R2, THETA2) 
X2=FNPOLARX (R3, THETfll ) 
Y2=FNPDLARY (R4, THETAl ) 
KDL0R=KDLOR+l: IF  KOLDR 
=4  THEN  KOLaR=l 

LINE  (X1,Y1>-(X2,Y2) ,K 
QLOR 

NEXT    THETA2 
NEXT    THETAl 
nc   1260   GDSUB   2380 
ICC   1270    'Module    *10   -   Spikes 
LB   1280   Rl=115:R2=a5:R3=40:R4=45 
INC1=PI/3:INC2=PI/1B 
1300    FDR    THETA1=0    TD   2*PI    STE 
P    INCl 

FDR    THETA2=0    TO   2»PI    ST 
EP    INC2 

X 1 =FNPDLAR  X ( R 1 , THETA2 ) 
Se  1330  Y1=FNPDLARY(R2,  THETAl) 
Btl  1340  X2=FNP0LARX(R3,  THETAl) 
BL  1350  Y2=FNPDLARY(R4,THETA2) 
HE    1360         K0LQR=KDLDR+1:  IF    KDLDR 

=4    THEN    KOLOR=1 
F£    1370         LINE(X1,  Y1)-(X2,Y2),KD 

LOR 
BR   1380         NEXT    THETA2 
EB   1390    NEXT    THETAl 
FB   1400    '    change   window    size    to 
equal    that    of    ApplelC's 
PC   1410   WINDOW    SCREEN     (0,  0)  -  C279 
, 191 ) ! XCENTER"! 40! YCENTE 
R»96 
HK   1420   QOSUB    2380 
81    1430    'Module    #11    -   A    Ball    0-f 

String 
CN   1440    X1=52:Y1=59:R1  =  95 
EK    1450    FDR    L00P=1    TO    150 
FP   1460   THETA=RNDtPI*2 


FB   970 
1111   980 

PC   990 
KF    1000 


EP 

SO 

NC  1070 

CP  1080 

LL  1090 

EC  1100 

LK  1110 

LE 
BN 
KD 
VI 

PB 

6C  1170 

GO  1180 

DA  1190 

if  1200 

DB  1210 

BE  1220 

NI  1230 

PO   1240 

OJ  1250 


CH   1290 

FF 


nS    1310 


PA    1320 
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DC  1470       X2=FNPDLARX(R1-THETA) 

SK  14B0      Y2"=FNPQLARY1Ri,THETfl) 

LD  1490      KOLaR=KOLDR+l:IF   KOLOR= 

4    THEN    K0LDR=1 

FP  1500      LINE     (X1,Y1>-(X2,Y2),3 

HH  1510    X1=X2:Y1=Y2 

P«  1520      NEXT    LOOP 

NP  1530    GOSUB    2380 

FC  1540    'Module   #12   -   LinedCirel 


THETft=2»PI*RND 

R1=9S 

X 1 =FNPOLARX ( Rl , THETA) 

Y 1 =FNPOL ARY ( R 1 , THETA) 

FOR  L00P=1  TO  110 

THETA=PI«2«RND 

X2=FNP0LARX  CRI , THETA) 

Y2=FNP0LARYtRl, THETA 1 

K0LQR=K0LDR+1: IF  KOLaR= 
4  THEN  KOLaR=l 

LINE  (XI, Y1)-(X2, Y2> ,K0 
LOR 

NEXT  LOOP 
BOSUB  2380 

'Module  #13  -  SqureCircl 
e 

R1='?3:R2=R1'"2+1 
FOR  LDDP=0  TO  Rl  STEP  5 

X1=SDR (R2-L0DP*L00P) 

Y1=SQR(R2-X1»X1) 

K0L0R=K0L0R+1:IF  KDLOR= 
4  THEN  KaLOR=l 

L I NE  (X 1 +XCENTER , Y 1 +YCE 
NTER ) - ( XCENTER-X 1 , YCENTE 
R-Y1),K0L0R,B 

NEXT  LOOP 
GOSUB  2390 

'Module  #14  -  CircularSp 
ikes 

Rl=20: R2=45: R3= 1 15: R4=a5 
INCl=PI/3: INC2=PI/6 
FOR    THETA1=0    TO    PU2   STE 
P    INCl 

FOR  THETA2=0  TO  PIf2  ST 
EP  INC2 

X1=FNF0LARX (R3, THETA2) 
Y1=FNP0LARY (R4, THETA2) 
X2=FNP0LARX (Rl , THETA 1 ) 
Y2=FNPQLARY (R2, THETAl ) 
KOLDR=KaLOR+l: IF  KOLOR 
=4  THEN  K0L0R»=1 

LINE  (X1,Y1)-(X2,Y2) ,K 
OLOR 

NEXT  THETA2 

NEXT  THETAl 
GOSUB  2380 

•Module  #14  -  ExpladedCi 
rcularSpi  kes 

R1=20:R2=45:R3=11S:R4=B5 
lNCl=PI/3: INC2=PI/6 
FOR  THETA1=0  TO  PI*2  STE 
P  INCl 

FOR  THETA2=0  TO  PI*2  ST 
EP  INC2 

X I =FNPOLARX ( R3 , THETA2 ) 
Yl=FNPaLARY (R4, THETAl ) 
X2=FNP0LARX (R 1 , THETAl ) 
Y2=FNPGLARY<f!2,  THETfl2) 
KOLOR=KOLOR+1: IF  KOLDR 
=4   THEN    KDL0R=1 

LINE  ai,Yl)-(X2,Y2),K 
DLDR 

NEXT  THETA2 

NEXT  THETAl 
GOSUB  2380 

'Module  #15  -  BigMultiLo 
be3 

R1=95:L0BES=2 
INC=PI/12a 
FOR  THETfl-0  TO  2»PI  STEP 

INC 

R2=Rl*SINfL0BES«THETA) 

Xl=FNPOLftRX (R2, THETA) 


a 

1550 

OL 

1560 

HE 

1570 

JP 

1580 

P£ 

1590 

IB 

1600 

NE 

1610 

PP 

1620 

KF 

1630 

LJ 

1640 

SL 

1650 

NK 

1660 

III 

1670 

HO 

1630 

IJ 

1690 

61) 

1700 

i£ 

1710 

KE 

1720 

DS 

1730 

QK 

1740 

HJ 

1730 

FP 

1760 

m 

1770 

DO 

1780 

m 

1790 

BL 

1800 

CB 

1810 

FD 

1820 

K 

1830 

CB 

1840 

!L 

1850 

ON 

1860 

AD 

1870 

BO 

1880 

m 

1890 

PL 

1900 

HI 

1910 

a 

1920 

Dl 

1930 

HJ 

1940 

DP 

1950 

£f 

1960 

HI 

1970 

EG 

1980 

JJ 

1990 

nn 

2000 

DC 

2010 

PN 

2020 

LE 

2030 

m 

2040 

n 

2050 

KB 

2060 

Et 

2070 

BC 

20B0 

PN 

2090 

PH  2100   Y1=FNP0LARYCR2,  THETA) 
JE  2110   KOLOR=KOLOR+1:  IF  KOLOR  = 

4  THEN  KOLOR=1 
FJ  2120   LINE  (  X CENTER,  YCENTER) - 

<Xl,  YD, KOLOR 
LB  2130   NEXT  THETA 
BL  2140  GOSUB  23B0 
KN  2150  'Module  #16  -  DoubleOval 

Cone 
S«  2160  R1=120:R2=30:R3=402R4=15 

2 
11  2170  INC=PI/32 
St.   2180  FOR  THETA=PI  TO  3«PI  STE 

P  INC 
BK  2190   X1=XCENTER-R1«CDS  (THETA 

) 
m   2200   Y1=R3-R2»SIN (THETA) 
KN  2210   X2=FNPDLARX(R1,  THETA) 
HE  2220   Y2=FNP0LARV{R2, THETA) -Y 

CENTER+R4 
KD  2230   KOLOR=KOLOR+1:  IF  KOLQR= 

4  THEN  KOLDR- 1 
K£  2240   LINE  (X  1 ,  Yl )  -  (X2,  Y2)  ,  KO 

LOR 
nl   2250   NEXT  THETA 
KB  2260  SOSUB  2380 
6fl  2270  CLS: WIDTH  80 
EK  2280  PRINT  "Press  ■'CHR*(34)"Q 

"CHR»(34)"  to  view  again 

HB  2290  AS  =  INPUT*(1) 

NC  2300  IF  A»="G"  OR  A*="g"  THEN 

RUN 
SI  2310  WIDTH  80:  SCREEN  0:END 
NE  2320  SCREEN  1:  CLS:  LOCATE  1,1: 

PRINT  "Mathgraphics" 
2330  PI=3. 1415927* 
2340  XCENTER=15I:YCENTER=93 

DEF  FNPQLARX (R, THETA )=Rt 

CDS (THETA) +XCENTER 

DEF  FNPOLARYtR, THETA )=R« 

SIN(THETft>+YCENTER 

RETURN 

TIME=TIMER 

WHILE  TIMER<TIME+15:WEND 

CLS 

LOCATE  1,1: PRINT  "MathGr 

aphics" 
Jf  2420  RETURN 


HB 
It 
BI  2350 


NL  2360 

JH  2370 

FD  2380 

NB  2390 

NI  2400 

JI  2410 


Program  2:  Math  Graphics 
Construction  Set 


OD  100 


PO  110 

DF  120 

HB  130 

m  140 

CB  1S0 

00  160 

AF  170 


£L  180 
ND  190 
OH  200 
JB  210 
LB  220 


KK  230 
lA  240 
LB  250 
PN  260 
CC  270 
EN  280 


REM  Copyright  1988  COMPUT 
E!  Publications,  Inc.  — 
All  Rights  Reserved 

PI =3. 141592654# 
DIM  R(19) :KEY  OFF 
DEF  FNPQLARX ( R , THETA ) =R«  C 
DS (THETA) +XCENTER 
DEF  FNPOLARY ( R , THETA ) =R«  S 
IN (THETA) +YCeNTER 
XCENTeR=159: YCENTER=100 
FOR  1=1  TO  19: READ  R(I):N 
EXT  I 

DATA  150,35,65,85,0,6,64, 
10000, 10000, 10000, 10000,0 
,0,20,1,1,1,1,1 
ON  ERROR  (50T0  630 
SCREEN  0,0,0 
WIDTH  80: CLS 
PRINT  STRIN6«(7S, "t") 
PRINT  "  Math(3raphic  Const 
ruction  Set  -  Copyright  1 
988  COMPUTE!  Publications 
,  Inc. " 

PRINT  STRING»(78, "«") 
PRINT  "(1)  R1="R(1) 
PRINT  " (2)  R2="R(2) 
PRINT  "(3)  R3="R(3) 
PRINT  '■(4)  R4="R(4) 
PRINT  "(5)  Start  of  Theta 

Loop  (Pi  t  k)="R(5) 


hi  290 
EP  300 
BK  310 
FB  320 
3H  330 
01  340 
K  350 
n   360 

m  370 

DH  380 
FH  390 
U  400 
FJ  410 
LH  420 
OJ    430 


U  440 
DD  450 
SB  460 
Hfi  470 
El  480 
HJ  490 
it   500 


FC  510 
Kf  520 
L6   530 

ftC  540 

C£   550 

HH  560 

6C  570 
6F  580 
06   590 


PF  600 

EB  610 

LK  615 

PG  620 

in  630 


PRINT  "(6)  End  of  Theta  L 

OOP  (PI  t  x)="R{6) 

PRINT  " (7)  Increment  of  T 

beta  Loop  (Pi  /  x)="R(7) 

PRINT  "(8)  Xl's  Offset  (P 

i  /  x)»"R(B) 

PRINT  "(9)  Yl's  Offset  (P 

i  /  x)-"R(9) 

PRINT  "(10)  X2's  Offset  ( 

Pi  /  x)="R(10) 

PRINT  "(11)  Y2's  Offset  ( 

Pi  /  x)="R<ll) 

PRINT  "(12)  Start  of  Thet 

a  Loop  #2  (Pi  «  x)="R(12) 

PRINT  "(13)  End  of  Theta 

Loop  #2  (Pi  «  x)="R(13) 

PRINT  "(14)  Increment  of 

Theta  Loop  #2  (Pi  t  x)="R 

(14) 

PRINT  "(15)  XI  uses  Loop 

#"RI0HT»(BTR»(R(15) )  ,  1) 

PRINT  "(16)  Yl  uses  Loop 

»"RIGHT»(STR«(R(16) ) ,1) 

PRINT  "(17)  X2  Uses  Loop 

»"RIGHT»(STR*(R(17) ), 1) 

PRINT  "(IS)  Y2  Uses  Loop 

#"RI0HT$(STR»(R(18))  ,  1) 

PRINT  "(19)  Color  Palette 

#"RIBHT« (STR« (R ( 19) )  ,  1 ) 
INPUT  "Type  number  to  mod 
Ify,  20  to  RUN,  21  to  QUI 
T  >",B0 

IF  G0=21  THEN  CLS: END 
IF  GO=20  THEN  500 
IF  G0>19  THEN  ERROR  13 
INPUT  "Change  to  >", VA 
R(60)=VA 
GOTO  180 

IF  R(19)=0  THEN  SCREEN  1, 
0: COLOR  ,0  ELSE  IF  R(19)= 
1  THEN  SCREEN  1,0: COLOR  , 
1  ELSE  IF  R(19)-2  THEN  SC 
REEN  1,1: COLOR  ,0  ELSE  IF 
R(19)«3  THEN  SCREEN  1,1: 
COLOR  , 1  ELSE  ERROR  13 
FDR  THETA1=PI»R(5)  TO  PI* 
R(6)  STEP  PI/R(7) 

FOR  THETA2=PI»R(12)  TO  P 
I«R(13)  STEP  PI/R(14) 

IF  R(15)=l  THEN  X1=FNP0 

LARX (R(l), THETAl +PI/R (8) ) 

ELSE  IF  R(15)=2  THEN  Xl= 

FNPOLARX ( R ( 1 > , THETA2+P I /R 

(8) )  ELSE  ERROR  13 

IF  R(16)=l  THEN  Y1=FNP0 

LARY(R(2) ,THETA1+PI/R(9) ) 

ELSE  IF  R(16)=2  THEN  Yl= 

FNP0LARY(R(2), THET A2+P I / R 

(9) )  ELSE  ERROR  13 

IF  R(17)=l  THEN  X2=FNP0 
LARX(R(3),THETA1+PI/'R(10) 
)  ELSE  IF  R(17)=2  THEN  X2 
=FNP0LARX{R(3>,THETA2+PI/ 
R(10) )  ELSE  ERROR  13 

IF  R{18)=1  THEN  Y2=FNPD 
LARY(R{4),THETA1+PI/R(11) 
)  ELSE  IF  R{lB)=s2  THEN  Y2 
=FNPOLARY ( R ( 4 ) , THETA2+P I / 
R(ll)>  ELBE  ERROR  13 

KOLOR=KOLOR+1:IF  KOLOR= 
4  THEN  K0L0R=1 

LINE  {X1,Y1)-(X2,Y2),K0 
LOR 

K*=INKEY*: IF  K*<>""  THE 
N  THETA1-PI«R(6):THETA2=P 
I«R(13):K=«1 

NEXT  THeTA2 
NEXT  THETAl 

IF  K=l  THEN  K=0:GOTD  190 
K*=INKEY»:IF  K»=""  THEN  G 
OTO  620: ELSE  GOTO  190 
PRINT  "Bad  Equation": BOTO 
190  fft 
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The  Elementary 
Amiga 

Part  4 


This  month's  installment  focuses  on 
the  CLI  and  talks  about  special  direc- 
tories, logical  devices,  and  timesaving 
command  files.  With  command  files, 
you  can  create  your  own  CLI  "macros" 
for  copying  fonts,  deleting  multiple 
files,  or  almost  anything. 


You  may  have  noticed  that  most 
CLI  commands  reside  in  a  directory 
called  C  {the  directory  has  nothing 
to  do  with  the  language  C),  CLI 
commands  are  simply  programs.  So 
if  I  type  ZAP,  and  there's  a  program 
called  ZAP  in  my  current  directory, 
that  program  loads  and  runs.  If  I 
enter  DIR,  the  computer  looks  for 
the  DIR  program  in  my  current  di- 
rectory. Chances  are,  the  computer 
will  not  find  DIR  in  the  current 
directory.  In  this  case,  it  looks  in  the 
C  directory. 

C  is  just  one  of  the  Amiga's 
special  directories.  If  I  enter  EXE- 
CUTE STARTUP-SEQUENCE,  the 
computer  knows  that  if  it  doesn't 
find  the  STARTUP-SEQUENCE  in 
the  current  directory,  it  should  look 
in  the  S  directory.  And  if  an  Amiga 
Basic  program  contains  a  LIBRARY 
statement  asking  the  system  to  load 
a  specific  .BMAP  file,  the  computer 
looks  in  the  LIBS  directory. 

A  number  of  Amiga  directories 
are  set  aside  for  special  jobs.  But 
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how  does  the  Amiga  know  to  look  in 
these  directories?  Whenever  the 
Amiga  needs  to  access  certain  types 
of  information,  it  uses  a  logical  device. 

Logical  Devices 

Logical  devices  can  be  referred  to 
just  like  hardware  devices,  such  as 
DFO:  for  the  internal  disk  drive  or 
PRT:  for  a  printer.  For  example,  if 
the  computer  needs  the  system  disk 
for  some  reason,  it  refers  to  it  as 
logical  device  SYS;.  When  you  boot 
your  Amiga,  the  computer  assigns 
SYS:  to  the  Workbench  disk  that 
starts  the  system. 

The  Amiga  has  six  other  logical 
devices  that  are  used  to  point  to 
different  disks  and/or  directories. 
These  devices  are  explained  below. 

Logical  device  C:  tells  the  com- 
puter where  to  look  for  CLI  com- 
mands. By  default,  this  device 
points  to  the  C  directory  x)i\  the 
Workbench  disk  from  which  you 
booted.  S;  points  to  the  S  (se- 
quence) directory,  where  the  com- 
puter looks  for  command  files.  FUes 
in  this  directory  can  usually  be  list- 
ed with  the  CLI's  TYPE  command 
and  often  make  interesting  reading. 

DEVS:  points  to  the  DEVS  di- 
rectory, which  holds  information  on 
devices.  Information  about  your 
printer  is  found  here,  plus  modules 
for  handling  other  input/output  op- 
erations. L:  points  to  the  L  (library) 


directory.  This  contains  overlays  for 
large  commands  and  nonresident 
parts  of  the  operating  system. 

LIBS:  specifies  the  LIBS  direc- 
tory, where  information  for  Open 
Library  calls  is  stored.  Generally, 
this  directory  doesn't  contain  pro- 
gram code,  just  lookup  tables.  Logi- 
cal device  FONTS:  points  to  the 
FONTS  directory,  where  character 
fonts  are  kept.  If  you  don't  use 
fonts,  you  can  delete  this  directory 
with  no  ill  effects. 

There's  one  more  logical  de- 
vice called  T:  for  temporary.  During 
editing  and  similar  operations,  a 
copy  of  your  original  file  is  placed 
here.  That  way,  if  you  really  botch 
things  up  you  can  go  back  to  the 
earlier  file. 

To  see  a  complete  list  of  logical 
devices  and  what  disks  and/or  di- 
rectories they  are  currently  linked 
with,  enter  the  CLI  command  AS- 
SIGN without  any  parameters. 

Flexible  Commands 
With  EXECUTE 

If  there's  a  series  of  commands  that 
you  need  to  repeat,  EXECUTE  can 
do  the  job  nicely.  We'll  start  with  a 
simple  example  and  then  work  up 
to  something  more  elegant. 

Suppose  you  want  to  search 
through  a  series  of  disks  to  see 
which  ones  contain  the  ADD- 
BUFFERS  command  within  the  C 
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directory.  You  could  insert  each 
disk  into  DFl:  and  enter  LIST 
DF1:C/ADDBUFFERS.  That  seems 
like  a  lot  of  typing,  and  if  you're  like 
me,  you're  likely  to  spell  something 
wrong.  You  might  find  it  easier  to 
create  a  file  named  Q  containing 
this  command  and  then  EXECUTE 
it  repeatedly.  Try  this: 

ECHO  >RAM:Q  "LIST  DF1:C/ADD. 

BUFFERS" 
COPY  OEXECUTE  RAM:EX 
CD  RAM: 

The  first  line  creates  a  file 
called  Q  on  the  ramdisk,  containing 
our  LIST  command;  the  second  line 
copies  the  EXECUTE  command  to 
RAM,  with  a  shorter  name  (EX); 
and  the  last  line  switches  our  cur- 
rent directory  to  RAM.  Now,  each 
time  we  put  a  disk  into  DFl:,  we 
need  only  enter  EX  Q,  and  the  com- 
mand LIST  DF1:C/ADDBUFFERS 
is  executed.  If  ADDBUFFERS  is  not 
on  the  disk,  you  get  an  object  not 
found  response.  If  the  file  exists,  the 
computer  gives  you  details  such  as 
ADDBUFFER's  file  size  and  date. 

Let's  try  something  more  com- 
plex. Suppose  we  want  to  copy  a 
complete  font  set  from  one  disk  to 
another.  In  fact,  maybe  we  want  to 
copy  several  fonts. 

Font  copying  is  tedious.  First, 
you  must  make  a  directory  with  the 
correct  name  on  the  target  disk. 
Then  you  must  copy  all  the  individ- 
ual fonts  into  the  newly  created 
directory.  Finally,  you  must  copy 
the  associated  .FONT  file  into  the 
target  disk's  FONTS  directory.  This 
process  is  hard  enough  with  just 
one  font,  but  when  you  have  to 
copy  several  fonts,  it  really  be- 
comes work. 

Try  this:  Enter  the  command  ED 
S:FC  to  create  a  new  file  within  the  S 
directory  called  FC  (for  Font  Copy). 
Now  enter  the  following  lines: 

.KEY  fontname/a 

nF  NOT  EXISTS  DFl:FONTS 

MAKEDIR  DFl:FONTS 
ENDIF 

MAKEDIR  DFl:FONTS/<fontname> 
COPY  DF0:FONTS/<fontname>  TO 

DFl  ;FONTS/<fontname> 
COPY  DF0;FONTS/<fontnaine>.FONT 

TO  DFl:FONTS 

The  first  line  insists  on  receiv- 
ing a  font  name  with  this  com- 
mand. Lines  2-4  create  a  FONTS 
directory  on  the  disk  in  DFl:  if  one 
does  not  already  exist.  Line  5  cre- 
ates the  font's  subdirectory  on  the 


disk  in  DFl;.  Line  6  copies  the  con- 
tents of  the  font's  subdirectory  from 
the  disk  in  DFO:  to  the  disk  in  DFl:, 
and  line  7  copies  the  associated 
.FONT  file  to  disk  in  DFl:.  When 
you've  completed  entering  this 
command  file,  press  ESC,  X,  and 
then  RETURN  to  wind  things  up. 
Now,  if  you  want  to  copy  a  set 
of  fonts  called  SAPPHIRE  from  a 
disk  in  DFO;  to  a  disk  in  DFl;,  just 
enter  EXECUTE  FC  SAPPHIRE.  If 
you  have  several  fonts  to  copy,  this 
command  file  makes  the  job  easy. 
Don't  forget  that  by  copying  this 
command  file  into  the  ramdisk  and 
entering  CD  RAM:,  you  can  really 
speed  things  up. 

More  Command  Files 

The  versatility  of  ED  and  the  power 
of  EXECUTE  can  make  some  useful 
combinations.  Let's  look  at  the  pos- 
sibility of  deleting  a  whole  set  of 
files  from  a  disk. 

Insert  a  disk  from  which  you'd 
like  to  delete  a  number  of  files  into 
DFl;  and  type 
LIST  >RAM:FLIST  DFl:  QUICK 

Of  course,  you  may  list  a  sub- 
directory if  that  suits  your  purposes 
or  use  pattern  matching  to  single 
out  certain  types  of  files.  After  en- 
tering this  command,  we  have  a  list 
of  files  stored  away  in  RAMiFLIST. 
Edit  it  with 
ED  RAM:FLIST 

You'll  see  a  list  of  files  and 
directories,  together  with  the  head- 
er Directory  . ,  .  Move  the  cursor  to 
this  top  line  and  press  the  ESC,  D, 
and  RETURN  keys  to  delete  this  line. 

In  the  same  way,  go  through 
this  list,  removing  the  names  of  files 
that  you  don't  want  to  delete.  You 
can  press  the  ESC-D  sequence 
again,  if  you  wish;  alternatively, 
you  may  find  it  easier  to  press 
CTRL-G,  which  repeats  the  previ- 
ous command.  Either  way,  contin- 
ue through  the  list  until  you  have 
deleted  the  final  line,  which  shows 
the  count  of  files  and  directories. 

At  this  point,  you  might  like  to 
press  ESC  followed  by  SA  and  then 
RETURN  to  save  the  file  in  its  cur- 
rent state.  Now,  get  ready  for  the 
high-powered  stuff. 

Press  ESC  and  then  type  the 
following  line,   followed  by   a 
RETURN: 
T;  RP  (E  //DELETE  DFl:/;  N) 


Let  me  explain  this  string  of 
commands.  The  character  T  means 
go  to  the  top  of  the  document.  The 
RP  means  repeat  the  following  se- 
quence in  parentheses.  In  the  re- 
peated section,  E  means  to 
exchange  every  null  string  (there's 
nothing  between  the  first  two 
slashes)  with  DELETE  DFl:.  The  N 
commands  the  computer  to  move 
to  the  next  line.  Or  in  simpler  terms, 
these  commands  mean  go  to  the  top 
of  the  text  and  insert  the  characters 
DELETE  DFl:  at  the  start  of  each 
line  until  you  run  out  of  lines. 

Now  we  have  a  file  to  do  some 
work  for  us.  Exit  the  editor  by 
pressing  ESC,  X,  and  RETURN. 
Then,  assuming  you  really  want  to 
delete  all  those  files  on  the  disk  in 
DFl:,  activate  the  command  file  with 
EXECUTE  RAM:FLIST 

You  may  have  access  to  other 
supereditors  with  which  you  can  do 
the  same  sort  of  thing.  But  if  not, 
ED  does  the  job  neatly. 

More  To  Come 

Next  time,  we'll  look  at  some  more 
of  my  favorite  CLI  commands  and 
take  a  closer  look  at  multitasking.© 
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Save  Your 
Copies  of 
COMPUTE! 

Protect  your  back  issues 
of  COMPUTE!  in  durabie 
binders  or  library  cases. 
Each  binder  or  cose  is 
custom-made  in  flag-blue 
binding  with  embossed 
white  lettering.  Each  holds 
a  year  of  COMPUTE!.  Or- 
der several  and  i<eep 
your  issues  of  COMPUTE! 
neatly  organized  for  quick 
reference.  (These  binders 
moke  great  gifts,  too!) 


Binders  Cases: 

$9.95  each;  $7.95  each; 

3  for  $27,95;  3  for  $21.95; 

6  for  $52.95  6  for  $39.95 

(Please  add  $2.50  per  unit 
for  orders  outside  the  U.S.) 

Send  in  your  prepaid  order 
with  the  attached  coupon 


Moil  to:  Jesse  Jones  industries 
P.O.  Box  5120 
Dept.  Code  COTE 
Philadelphia,  PA  19141 

Please  send  me COM- 

PUTEI  D  coses  D  binders. 
Enclosed  is  my  check  or  money 

order  for  S .  (U.S.  funds 

only.) 

Name 

Address 

City 

State 


.Zip, 


Satisfaction  guaronteed  or  money 

refunded. 

Please  allow  4-6  weeks  for  delivery. 
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Premature  Prose 

In  last  month's  feature/'Supercon- 
ductors:  A  Technology  Coming  Of 

Age"  (p.  18),  we  incorrectly  stated 
that  researchers  have  superconduc- 
tors working  at  room  temperatures. 
This  is  not  true.  Somewhere  in  the 
editing  process,  a  few  words  were 
dropped  from  the  article's  original 
text.  The  passage  should  have  read: 
Wi7/i  these  receipt  developments,  re- 
searchers believe  that  they'll  soon 
have  superconductors  working  at 
room  temperatures. 

Softkey  For  Atari  XL/XE 

Some  users  may  experience  prob- 
lems with  the  program  "Softkey 
Editor"  Ganuary  1988).  The  pro- 
gram depends  on  the  variable 
SCREENS  being  the  first  variable  in 
the  program.  Unfortunately,  the 
FOR/NEXT  delay  loop  we  added 
makes  TT  the  first  variable.  Typing 
errors  and  immediate  mode  state- 
ments can  also  cause  entries  to  be 
made  in  the  variable  name  table. 

To  correct  the  problem,  re- 
move line  30  in  the  program.  Next, 
LIST  the  program  to  disk  with  a 
command  like  LIST"D:TEMP".  Do 
not  use  the  SAVE  command.  Re- 
boot your  computer  and  type 
ENTER"D:TEMP".  Finally,  type 
SAVE"SKCREATE"  to  create  a 
working  version  of  the  program. 

Canfield  For  Apple  II 

There  are  a  number  of  corrections 
to  the  Apple  version  of  "Canfield" 
from  the  January  1988  issue.  These 
lines  need  the  following  changes: 

215  IF  A*  =  "y"    THEN  GOTO  40 
220  IF  A*  =  "Y"  THEN  GOTO  40 
1930  VTAB  IB:  HTfiB  2:  PRINT  "(4 
SPftCEB}";!  HTAB  2!  PRINT 

■'*"BR 
2000  VTftB  22:  HTAB  2:  PRINT  "PL 

AY  AGAIN?  <Y/N)" 
2020  IF  A*  =  "y"  OR  A*  =  "Y"  TH 

EN  BR  =  500:  POP  :  GDTD  40 
2030  IF  AS  =  "n"  OR  ft*  =  "N"  TH 

EN  BR  =  0:  POP  ;  GOTO  410 

These  changes  are  for  both  the  DOS 
3.3  and  ProDOS  versions.  @ 
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SFunction  Seiko  Watch,  you  Can 
Have  Everything  You  Need  to 
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Color  Pod 


Forrest  Bentley 


Perhaps  the  best  Commodore  64 
drawing  program  COMPUTE!  has  ever 
published,  "Color  Pad"  includes 
many  features  and  fast  response.  Fea- 
tures such  as  Fill,  Square,  Ellipse, 
Text,  and  Transfer — a  powerful  copy- 
and-paste  option — make  designing 
spectacular  screens  quick  and  easy.  A 
joystick  and  a  disk  drive  are  required. 


"Color  Pad"  is  a  full-featured 
drawing  program  that  allows  you  to 
create  detailed  multicolor  pictures 
using  a  joystick.  Every  program  op- 
tion is  available  through  a  single 
keypress,  making  the  program  easy 
to  use.  And  Color  Pad  has  a  wide 
variety  of  functions,  from  Draw 
mode  to  Ellipse  and  Fill  options. 

Worth  noting  here  is  Color 
Pad's  unique  copy  feature.  Trans- 
fer. With  Transfer,  any  section  of 
the  screen  can  be  duplicated  and 
saved  to  disk  for  later  use.  You  can 
not  only  transfer  objects  from  one 
section  of  the  screen  to  another,  but 
you  can  also  transfer  objects  from 
one  complete  drawing  to  another. 

Typing  It  In 

Color  Pad  is  composed  of  Programs 
1  through  4.  Program  1  is  written  in 
BASIC,  so  it  is  recommended  that 
you  use  the  "Automatic  Proofread- 
er," found  elsewhere  in  this  issue, 
to  assist  you  in  typing  it  in.  Pro- 
grams 2,  3,  and  4  are  each  written  in 
machine  language  and  must  be  en- 
tered using  "MLX,"  the  machine 
language  entry  program  found  else- 
where in  this  issue.  When  you  run 
MLX,  answer  the  prompts  as  fol- 
lows for  each  program: 

Program  2 

Starting  address:     80E8 

Ending  address;      92C7 

Program  3 

Starting  address:     COOO 

Ending  address:      CEBF 

Program  4 

Starting  address:     92E0 

Ending  address:      9CB7 


After  typing  in  each  program, 
save  a  copy  to  disk.  Save  Program  1 
with  the  filename  COLOR  PAD, 
Program  2  with  the  filename 
COLOR  PAD.O,  Program  3  with 
the  filename  COLOR  PAD2.0,  and 
Program  4  with  the  filename 
COLOR  PAD3.0,  all  on  the  same 
disk.  When  run,  Color  Pad  looks  for 
the  programs  with  these  filenames. 

Typing  In  Multiple  Sittings 

Programs  2-4  are  quite  long  ma- 
chine language  programs.  If  you 
want  to  stop  typing  one  of  the  list- 
ings at  some  point  and  resume  lat- 
er, press  SHIFT-S  and  follow  the 
screen  prompts.  Remember  to  note 
the  line  number  of  the  last  line  you 
typed  in. 

When  you  are  ready  to  contin- 
ue typing,  load  MLX,  answer  the 
starting  and  ending  address 
prompts,  then  press  SHIFT-L.  MLX 
asks  for  the  filename  you  gave  to 
the  partially  typed-in  program. 
After  the  load  is  complete,  press 
SHIFT-N  and  tell  MLX  the  line 
number  you  stopped  at.  Now,  con- 
tinue typing  as  before.  When  you 
finish  typing,  MLX  automatically 
prompts  you  to  save  the  program. 

Starting  Up 

To  run  Color  Pad,  plug  a  joystick 
into  port  2,  turn  on  your  64,  and 
enter  LOAD  "COLOR  PAD", 8. 
After  the  program  is  loaded,  type 
RUN  and  press  RETURN.  After  a 
while.  Color  Pad's  multicolor  bit- 
mapped screen  appears.  Pressing  fl 
returns  you  to  BASIC. 

Once  in  Color  Pad's  bit- 
mapped screen,  you'll  notice  a  pen- 
shaped  sprite  indicating  where 
you're  plotting.  The  joystick  con- 
trols the  pen.  To  draw,  the  pen 
must  be  down.  The  joystick's  fire 
button  toggles  the  pen  up  and 
down.  So  you  know  the  current 
orientation  of  your  pen,  two  dark 
lines  appear  within  the  pen  when 
it's  down. 


"Color  Pad"  can  produce  beautiful, 
detailed  color  screens  such  as  this  one. 


The  transfer  function  can  be  used  to 
stamp  images. 


Color  Pad  contains  many 
drawing  tools  for  the  computer  art- 
ist. The  following  describes  these 
tools  and  how  to  access  and  use 
each  of  them. 

The  Basics 

Brushes:  Color  Pad  offers  a  selection 
of  two  brushes;  large  and  small.  To 
select  a  new  brush,  press  B.  Your 
pen  changes  in  size  to  reflect  the 
new  size  of  your  brush. 

Eraser:  If  you  make  a  mis- 
take— and  we  all  do — you'll  want 
an  eraser.  To  access  the  eraser, 
press  E.  The  eraser  end  of  the  pen 
opens  up  to  indicate  that  Erase 
mode  is  in  effect.  Now,  when  the 
pen  is  down,  you  erase  points  rath- 
er than  draw  them.  The  eraser  uses 
the  current  brush  shape.  To  return 
to  Draw  mode,  press  D. 

Drawing  Color:  This  option  al- 
lows you  to  access  the  64's  palette 
of  16  colors.  To  change  the  color 
your  pen  draws  with,  press  the 
space  bar.  The  border  color  indi- 
cates the  new  color.  Pressing  the 
space  bar  repeatedly  cycles  through 
all  16  different  colors.  To  cycle 
backward  through  the  colors,  press 
SHIFT-SPACE. 

The  Commodore   64  allows 
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only  four  colors  in  any  eight  by 
eight  pixel  area.  If  you  try  to  use 
more  than  four  colors  in  an  eight  by 
eight  block,  one  color  will  "splash" 
into  another.  Just  be  careful  when 
using  multiple  colors  in  a  small  area. 

Pen  Color:  To  change  the  color 
of  your  pen,  press  A.  Continue  to 
press  A  until  you  find  the  color  you 
want.  This  does  not  change  the 
plotting  color,  just  the  color  of  the 
pen  sprite.  It's  best  to  choose  a  pen 
color  that  contrasts  well  with  the 
paint  and  canvas  colors. 

Pen  Speed:  You  can  speed  up 
and  slow  down  the  pen's  move- 
ment by  pressing  the  plus  and  mi- 
nus keys,  respectively.  Be  careful 
when  increasing  your  pen's  speed — 
this  program  can  move  very  fast. 

Clear:  The  garbage  can  is  prob- 
ably an  artist's  most  important  tool. 
Everyone  needs  to  throw  away  his 
or  her  work  once  in  a  while.  The 
Clear  option  gives  you  this  ability 
by  disposing  of  your  current  sketch 
and  giving  you  a  clean  slate.  You 
may  also  wish  to  use  the  Clear  op- 
tion to  begin  a  new  drawing  after 
saving  the  current  one  to  disk. 

To  clear  a  sketch,  press  C.  The 
pen  vanishes,  acknowledging  your 
keypress.  If  you  really  wish  to  toss 
your  sketch  into  the  garbage  can, 
press  C  again  and  the  screen  will 
clear.  If  you  change  your  mind, 
press  any  key  other  than  C  and  the 
pen  will  return,  leaving  your  draw- 
ing intact. 

Oops:  Here  you  can  dig 
through  your  garbage  and  pull  out 
an  old  version  of  your  drawing.  The 
Oops  option  restores  your  drawing 
back  to  a  previous  state.  To  enter 
Oops  mode,  press  O.  The  pen  will 
vanish.  Press  O  again  to  restore  the 
sketch.  Pressing  any  other  key 
aborts  the  Oops  process. 

To  specify  the  "previous  state" 
that  your  drawing  is  restored  to, 
press  SHIFT-O.  Whenever  you 
press  SHIFT-O,  your  drawing  is 
copied  into  the  Oops  buffer,  where 
it  can  be  recalled  by  pressing  O 
twice.  The  sketch  is  also  copied  into 
the  Oops  buffer  whenever  you  use 
one  of  the  function  key  options  or 
display  a  directory. 

It's  a  good  idea  to  press  SHIFT- 
O  before  making  drastic  modifica- 
tions to  a  sketch.  This  way,  you 
always  have  a  good  sketch  to  Oops 
back  to. 


Lines  And  Shapes 

Lines:  This  option,  a  straight-edge 
tool,  lets  you  draw  accurate, 
straight  lines. 

To  draw  a  line,  move  your  pen 
to  where  you  want  the  line  to  start 
and  press  L,  A  plus  sign  (+ )  appears 
on  the  screen  at  the  location  of  your 
pen.  Now,  move  your  pen  to  where 
you  want  the  line  to  end,  and  press 
the  fire  button.  Instantly,  a  line  is 
drawn  using  the  current  brush. 

After  the  line  is  drawn,  the 
plus  sign  moves  to  the  current  pen 
position  (the  line's  endpoint),  ready 
for  another  line.  By  allowing  you  to 
draw  connecting  lines  like  this,  tri- 
angles, rectangles,  and  other  poly- 
gons are  easily  created. 

While  in  line  mode,  you  may 
change  your  mind  as  to  where  the 
start  of  the  line  should  be.  To  do 
this,  simply  press  L  again,  and  the 
plus  sign  exchanges  places  with  the 
pen.  To  exit  line  mode,  press 
RETURN. 

Rays:  Press  R  to  enter  ray 
mode.  Rays  work  like  lines,  with 
one  exception.  After  a  ray  is  drawn, 
the  -I-  sign  remains  where  it  was 
before  the  ray  was  drawn.  To  exit 
ray  mode,  press  RETURN. 

Square:  To  draw  a  square,  press 
S.  Four  plus  signs  appear,  indicat- 
ing the  shape  and  size  of  the 
square.  Move  the  joystick  right  or 
left  to  increase  or  decrease  the  hori- 
zontal length  of  the  square.  Similar- 
ly, move  the  joystick  up  or  down  to 
increase  or  decrease  the  vertical 
height  of  the  square.  Once  you 
have  the  shape  you  want,  press  the 
fire  button.  Now,  move  the  square 
to  where  you  want  it  and  press  the 
fire  button  again.  The  square  is 
placed  onto  the  screen.  To  escape 
from  this  mode,  press  RETURN. 

Diamond:  A  diamond  is  a 
square  that  sits  on  its  comer.  To 
draw  a  diamond,  press  Q.  Four  plus 
signs  appear.  As  with  a  square,  use 
the  joystick  to  determine  the  shape 
of  the  diamond  and  press  the  fire 
button.  Move  to  the  desired  loca- 
tion on  the  screen  and  press  fire  to 
draw  the  object.  Pressing  RETURN 
exits  diamond  mode. 

Ellipse:  To  draw  a  circle  or  an 
ellipse,  press  I.  Again,  you  are  pre- 
sented with  four  plus  signs.  Move 
the  joystick  to  determine  the  shape 
of  the  ellipse.  Once  you  have  the 
shape  you  want,  press  the  fire  but- 


ton. Now,  move  the  plus  signs  to 
where  you  want  the  ellipse  dravwi 
and  press  the  fire  button  again.  An 
ellipse  is  placed  onto  the  screen.  To 
escape  from  this  mode,  press 
RETURN. 

The  Extras 

Fill:  To  fill  an  enclosed  area  on  your 
sketch,  move  the  pen  inside  the 
area  and  press  F.  Make  sure  that 
there  aren't  any  holes  in  the  edges, 
or  the  paint  will  leak  out.  To  termi- 
nate a  Fill  before  it  is  finished,  press 
RETURN. 

After  an  area  is  filled,  you  may 
want  to  refill  it  with  a  different 
color.  To  do  this,  lift  the  pen  up, 
select  the  new  color  using  the  space 
bar,  and  press  F  again.  The  new 
color  covers  the  old  color. 

Fill  reads  the  color  under  the 
pen's  point  and  fills  until  it  reaches 
a  different  color.  If  the  color  under 
the  pen  matches  the  current  draw- 
ing color,  the  fill  is  stopped. 

Text:  With  this  tool,  you  can 
draw  text  in  several  different  sizes. 
To  place  text  onto  a  drawing,  press 
T.  The  pen  changes  to  an  underline 
cursor.  Now,  simply  type  in  your 
message.  The  cursor  keys  and  the 
RETURN  key  can  be  used  to  move 
the  cursor  around  the  screen. 

When  you  reach  the  end  of  the 
screen,  the  cursor  does  not  auto- 
matically move  to  the  next  line.  You 
must  manually  move  to  the  next 
line  using  the  cursor-down  key  or 
the  RETURN  key.  The  fl  key  exits 
Text  mode. 

To  erase  a  character  while  en- 
tering text,  press  f3.  The  cursor 
splits  in  two,  indicating  that  you're 
in  Erase  mode.  Now,  use  the  cursor 
keys  to  move  on  top  of  the  incorrect 
letter  and  retype  that  same  letter. 
Just  as  with  correctable  ribbon  on  a 
typewriter,  the  offending  letter  is 
deleted  from  the  screen.  Press  f3 
again  to  draw  characters. 

Toggling  the  text  cursor  be- 
tween Draw  and  Erase  is  identical  to 
setting  the  pen  to  Draw  and  Erase. 
For  instance,  if  you  wish  to  enter 
reverse  letters  on  a  solid  object,  type 
your  letters  in  Erase  mode. 

To  increase  the  size  of  your 
characters,  press  the  up -arrow  key 
(T,  not  the  cursor-up  key).  Each 
time  you  press  this  key,  the  charac- 
ter size  increases.  The  lett-arrow 
key  (^)  reduces  the  character  size. 


March  1988    COMPUTEI     73 


To  give  words  a  three-dimen- 
sional look,  type  a  word  in  black, 
back  up  to  the  first  letter  in  the 
word  using  the  cursor  keys,  press 
fl,  move  the  pen  a  few  pixels  up 
and  left,  select  a  different  paint 
color  by  pressing  the  space  bar, 
press  T  to  enter  text  mode,  and 
retype  the  word. 

Transfer:  This  option  offers 
three  important  tools — a  photo- 
copier, scissors,  and  paste.  You  can 
select  an  area  of  the  screen,  copy  it, 
and  then  paste  the  copy  anywhere 
on  your  sketch. 

To  begin  the  transfer,  move  the 
pen  to  the  upper-left  corner  of  the 
area  that  you  wish  to  select  and 
press  X.  As  with  the  square  tool, 
four  plus  signs  appear.  Move  the 
plus  signs  with  the  joystick  to  form 
a  square  that  encloses  the  area  to  be 
transferred.  Press  the  fire  button 
and  the  enclosed  area  is  copied. 
Now,  move  to  where  you  want  the 
copy  to  be  placed  and  press  the  fire 
button  again.  The  copy  is  pasted 
onto  the  sketch. 

After  you're  through  making 
all  the  copies  you  want,  press  RE- 
TURN and  the  pen  reappears.  If 
you  want  to  retransfer  the  same 
copy  later,  just  press  N.  The  selec- 
tion square  reappears.  Move  to 
where  you  want  the  copy  placed 
and  press  the  fire  button. 

To  transfer  a  copy  to  another 
sketch,  press  X,  select  an  area,  press 
RETURN  to  exit  Transfer  mode, 
press  f4  to  load  a  new  drawing,  and 
press  N  to  transfer  the  copy.  Trans- 
fers may  also  be  saved  to  disk  for 
later  use  (see  below). 

If  you  use  a  drawing  tool  that 
uses  the  plus  signs  (like  Square  or 
Ellipse)  between  the  transfer  and 
retransfer  functions,  the  retransfer 
does  not  work  properly.  In  this  case 
you  have  to  copy  the  original  again, 
or  save  it  to  disk  and  load  it  back  in. 

Zoom:  To  add  detail  to  your 
pictures,  Color  Pad  offers  Zoom 
mode.  You  activate  Zoom  mode  by 
pressing  Z.  A  square  area  defined 
by  four  plus  signs  appears.  Move 
the  square  area  over  the  section  of 
the  screen  that  you  wish  to  edit  and 
press  fire.  The  selected  area  is  en- 
larged to  fill  the  entire  screen. 

To  edit  this  magnified  view  of 
your  sketch,  simply  use  your  pen 
and  draw.  If  you  wish  to  erase  pix- 
els, enter  Erase  mode  by  pressing  E. 


Using  Color  Pad  Pictures 

From  Color  Pad  To  BASIC 

Programs  5  and  6  allow  you  to  load  Color  Pad  pictures  from  BASIC.  You 
may  use  these  pictures  in  your  own  programs,  or  simply  create  a  Color 
Pad  slide  show  that  exhibits  your  finest  creations. 

To  begin,  type  in  Programs  5  and  6.  Program  5  is  written  in  BASIC, 
so  be  sure  to  use  the  "Automatic  Proofreader"  to  ensure  accurate  entry. 

Program  6  is  written  in  machine  language.  You  must  enter  Program  6 
using  "MLX,"  the  machine  language  entry  program  found  elsewhere  in  this 
issue.  Enter  the  foUowang  starting  and  ending  addresses  for  Program  6: 

Starting  address:     C350 
Ending  address:      C437 

Save  Program  5  and  6  to  the  same  disk.  Save  Program  6  using  the 
filename  CPBASIC.O.  Program  5  looks  for  Program  6  using  this  filename. 

When  you  run  Program  5,  the  computer  requests  the  filename  of  a 
Color  Pad  file.  Insert  the  disk  containing  the  desired  picture  and  enter  the 
picture's  filename.  After  the  picture  loads,  it  is  displayed  on  the  screen. 
Press  any  key  to  exit  the  program. 

You  can  modify  Program  5  for  your  own  purposes.  For  example,  by 
deleting  line  150  and  changing  line  160  to 
160  FL$  =  "MYPICTURE" 

the  program  automatically  loads  and  displays  the  drawing  saved  as 
MYPICTURE. 

Graphics  programmers  may  be  interested  to  know  that  Color  Pad's 
bitmapped  picture  loads  into  memory  at  8192-16383.  The  text  screen  is 
still  located  at  1024-2023.  Because  the  multicolor  drawing  resides  in  the 
BASIC  workspace,  a  POKE  52,32:POKE  56,32:CLR  is  necessary  to  keep 
BASIC  from  intruding  on  your  picture.  These  POKEs,  however,  reduce 
the  workspace  to  a  little  under  6K. 

From  Koala  Pad  To  Color  Pad 

Program  7  is  a  machine  language  program  that  transfers  files  created  by 
Koala  Pad's  Koala  Paint  program  into  Color  Pad,  To  use  Program  7,  you 
must  first  type  it  in  using  MLX.  Enter  the  follovring  values  when 
prompted: 

Starting  address:     COOO 
Ending  address:      C047 

When  you  are  finished,  save  the  program  as  CONVERT.O.  Now,  to 
convert  the  picture  to  Color  Pad  format,  enter  the  following  lines.  Note 
that  the  j4  in  line  10  should  be  changed  to  specify  the  desired  Koala  Pad 
file. 


NEW 

10  FS-=CHR$(129)-(-'TIC  A'":REM  WHERE 

20  IF  L=0  THEN  L=l;LOAD  F$,8,l 

RUN 

LOAD  "CONVERT.O",8,l 

SYS  49152 

LOAD  "COLOR  PAD",8 

248  POKE  821,87 

RUN 


A"  IS  THE  PICTURE'S  LETTER 


When  Color  Pad  runs,  the  converted  Koala  Pad  drawing  appears  on 
the  screen,  ready  for  you  to  edit  or  save.  © 


Press  D  to  return  to  Draw  mode. 
You  can  change  the  color  that  your 
pen  draws  with  by  pressing  the 
space  bar.  To  move  the  Zoom  view- 
ing area  around  the  sketch,  use  the 
cursor  keys. 

Press  RETURN  to  restore  your 


screen  to  normal.  The  Zoom  selec- 
tion square  remains  on  the  screen 
for  you  to  use.  If  you  wish  to  exit 
Zoom  mode  entirely,  press  RE- 
TURN again.  Zoom  mode  is  perfect 
for  adding  final  touches  to  a  de- 
tailed drawing. 
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special  Features 

Exchange-  Color:  After  drawing  for  a 
while,  you  may  want  to  exchange 
all  occurrences  of  one  color  for  an- 
other. To  do  this,  lift  the  pen  up, 
move  the  point  of  the  pen  on  top  of 
the  color  that  you  want  to  change, 
press  the  space  bar  until  you  find 
the  color  that  you  want,  and  press 
SHIFT-A.  All  occurrences  of  the  old 
color  switch  with  the  new  color. 

Rapid  Colors:  For  interesting 
color  effects,  turn  on  Rapid  Colors 
by  pressing  SHIFT-R.  When  acti- 
vated, the  drawing  color  rapidly  cy- 
cles between  all  16  colors.  Press 
SHIFT-R  again  to  turn  this  mode 
off.  Rapid  Colors  affects  all  drawing 
functions,  such  as  Draw,  Ellipse, 
and  Fill, 

Shading:  Shading  allows  you  to 
draw  using  different  patterns  or 
shades.  Press  SHIFT-S  to  activate 
Shading,  When  activated,  the  pen 
toggles  quickly  between  Draw  and 
Erase  mode,  creating  a  shading  ef- 
fect. The  speed  at  which  the  pen 
switches  between  drawing  and 
erasing  depends  on  the  speed  of 
your  pen.  You  can  adjust  the  pen 
speed  by  pressing  the  plus  and  mi- 
nus keys.  To  turn  off  Shading,  press 
SHIFT-S  again. 

Shading  can  be  useful  for 
drawing  dotted  lines.  Try  using  the 
Fill  option  using  different  pen 
speeds  while  Shading  is  on.  You 
can  create  some  very  interesting 
graphics  this  way. 

Screen  Scroll:  By  using  the  cur- 
sor keys,  you  can  move  a  drawing 
around  on  the  screen.  Any  part  of 
the  drawing  that  moves  off  the  edge 
of  the  screen  is  erased,  so  be  careful. 
It  is  a  good  idea  to  create  borders  for 
your  drawings  last,  just  in  case  you 
accidentally  hit  a  cursor  key. 

Swap:  With  Swap,  you  can 
have  two  sketches  in  memory  at 
one  time.  When  you  press  f2,  the 
current  screen  "swaps"  with  the 
one  stashed  in  memory.  When 
loading,  saving,  or  printing  a 
sketch,  only  the  current  screen — 
the  one  that's  visible — is  affected. 

Using  Color  Pad's  Transfer 
feature,  you  can  copy  objects  from 
one  screen  to  the  other.  Just  press  X 
for  Transfer,  select  an  area,  press 
RETURN  to  exit  Transfer  mode, 
press  f2  to  Swap  screens,  and  press 
N  to  Transfer  a  copy  to  the  alternate 
screen. 


Screen  Copy:  Pressing  f8  copies 
the  current  screen  to  the  alternate 
screen.  The  border  changes  color 
briefly  while  the  current  screen  is 
being  duplicated.  When  the  border 
color  returns  to  normal,  both 
screens  are  identical. 

Help:  All  of  Color  Pad's  op- 
tions are  documented  in  an  online 
help  screen.  The  i7  key  opens  the 
help  screen  and  RETURN  closes  it. 

Fiie  Commands 

Directory:  Pressing  SHIFT-RETURN 
prints  the  current  disk  directory  to 
the  screen.  To  resume  drawing, 
press  RETURN. 

Save:  To  save  your  sketch, 
press  f3.  The  program  prompts  you 
for  a  filename.  When  saved,  the 
characters  CP.  are  added  to  the  be- 
ginning of  the  filename  to  help  you 
remember  which  files  are  Color  Pad 
files.  For  this  reason,  you  must  enter 
a  filename  with  13  or  fewer  charac- 
ters. Pressing  RETURN  without  en- 
tering a  filename  exits  this  option. 

Load:  Here  you  can  load  a  pre- 
viously saved  sketch  by  pressing  f4. 
When  the  program  prompts  you, 
enter  the  filename  that  you  used  to 
save  the  sketch  (without  the  added 
CP.),  The  sketch  is  loaded  and 
ready  for  editing.  Pressing  RE- 
TURN without  entering  a  filename 
returns  you  to  Draw  mode. 

Save  Transfer:  This  option  al- 
lows you  to  save  a  transfer,  A  trans- 
fer is  a  selected  portion  of  your 
sketch  (see  the  Transfer  description 
above).  To  save  a  transfer,  press  f5. 
The  program  prompts  you  for  a  file- 
name. Transfer  files  are  saved  with 
the  characters  CX.  added  to  the  be- 
ginning of  the  filename.  You  may 
exit  this  option  by  pressing  RE- 
TURN without  entering  a  filename. 

Load  Transfer:  This  option  al- 
lows you  to  load  a  previously  saved 
transfer.  To  load  a  transfer,  press  f6. 
When  the  program  prompts  you, 
enter  the  filename  that  you  used  to 
save  the  sketch  (without  the  added 
ex.).  The  transfer  is  loaded  and 
ready  for  use.  You  may  exit  this 
option  by  pressing  RETURN  with- 
out entering  a  filename. 

After  the  transfer  is  loaded,  the 
retransfer  function  is  automatically 
called  and  you  are  presented  with 
the  four  +  symbols.  Press  RE- 
TURN if  you  do  not  wish  to  place 
I  the  transfer  yet. 


Quitting 

Exit:  To  exit  the  program,  press  fl.  If 
you  exit  Color  Pad  accidentally,  en- 
tering RUN  immediately  restarts  the 
program  with  your  drawing  intact. 

Color  Pad 

XQ  100  REM  COPYRIGHT  1988  COHP 
UTEl  PUBLICATIONS,  INC. 
-  ALL  RIGHTS  RESERVED 

FF  110  POKE  53269,0 

MH  120  IF  PEEK(52)>28  THEN  POK 
E52,28!POKE56,2a:POKEe2 
0,87:CLR 

EC  130  IF  PEEK(821)=87  THEN  L= 
99 

ES    140    IF    L>0   THEN   GOTO230 

AA    150    GOSUB1190 

DR  160  PRINT"{15  RIGHT}{BLK}R 
B7gR{RED)R(CYN}R[PURlR 
SaaR(GRN)RB73Rgl3R" 

JD  170  PRINT" [15  RIGHT) [BLKJC 
E730{RED)L{CyN}0{PUR3R 
(SPACE) (GRN}P§79Ail3D" 

pm  180  print" (15  right) (blkle 
E7  3e(redJe(cyn)e{purje 

g83E(GRN)E|7aEEl3E 

1 2  DOWN )  '■ 
JS  190  PRINT" (3  RIGHT) (WHTJ COP 

YRIGHT  1938  COMPUTE  1  PU 

BL,  INC. (DOWN) " 
PB  200  PRINT" (10  right! ALL  RIG 

HTS  RESERVEDO  DOWN]" 
MF  210  PRIHT"(15  right) (BLK)LO 

ADING. . . (CYN}" 
MM  220  L=l: LOAD "COLOR  PAD.0",8 

,1 
FM  230  IF  LOl  THEN  GOTO270 
BD  240  OPEN15,8,15jOPEK2,8,2," 

COLOR  PAD2.0, P,R" : INPUT 

#15, E,  E? :CL0SE2  rCLOSElS 
KP  250  IF  E>0  THEN  L=3 : POKE  33 

5S9,96:GOTO310 
PG  260  IF  L=l  THEN  L=2!L0AD"C0 

LOR  PAD2.0",8, 1 
XG  270  IF  L<>2  THEN  GOTO300 
CJ  280  OPEK15,8,15jOPEN2,8, 2," 

COLOR  PAD3.0,P,R" : INPUT 

#15,E,E5:CLOSE2:CLOSE15 
PM    290    IF    E>0   THEN   L=3 ! POKE    49 

172,96:GOTO310 
XK    300    IF    L=2    THEN    L=3iL0AD"C0 

LOR   PAD3.0",8, 1 
RP    310    POKE83  5,1:POKE836,0!POK 

E837,0;POKE838,55 
SH    320    IF    DT>0    THEN    GOTO350 
HQ    330    DT=X!F0RC=1    TO    128: READ 

DsPOKE    16255+C,D:NEXT 
CF   340    POKE   37465, 5: POKE    37664 

,5 
SK    350    POKE840, 0: PRINT" (CLR) "s 

SYS33000 
JF    360    POKE532a0,6:POKE53281,6 

:PRINT"(CYN) (CLR) " ; 
XD    370    IF    PEEK(839)=1    THEN    GOT 

0410 
FE    380    IF    PEEK(839)=136   THEN   G 

0308890 :GOTO350 
PX    390    IFPEEK(839)=141    THEN   GO 

SUB1310:SYS49152:GOSUB8 

40:GOTO350 
EJ    400    GOSUB600:GOTO350 
SA    410    PRINT" COLOR    PAD    PROCESS 

ING    COMPLETE." 
JX    420    END 

GP    430    REM    SPRITE    DATA 
JM    440    DATA000, 000,000, 000,000 
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,000,000,000 

GS    840 

PRINT" {3    DOWN  J  PRESS    RET 

[5    SPACES] {CYN} [RVS] 

QP   450   DATA000,000,000,000,000 

URN   TO   CONTINUE" 

[3    SPACES] SHIFT-R{OFF] 

,000,000,000 

AD   850 

OPEN15,8,15}INPUT#15,E, 

= (WHT) RAPID    COLORS 

CJ   460    DATA000,000,000,000,000 

ES:CL0SE15 

[CYN)" 

,255,128,000 

HS    860 

GET   FC$:IF   FC9<>""    THEN 

ME   i070 

PRINT" {UP} {RVS} 

DP    470    DATA160,192,000,160,224 

GOTO860 

[3  spaces}q{off}={wht] 

,000,160, 192 

AB    870 

GET    FC5:IF    FC$=""    THEN 

DIAM0ND{5    SPACES} [CYN] 

JD   480    DATA000,255,12B,000,000 

{ SPACE] GOTO870 

{RVS) sft-return{off)= 

,000,000,000 

CX    880 

RETURN 

{wht)directory{cyn} " 

QS    490    DATA000,000,000,000,000 

FP   890 

REM    HELP    SCREEN 

MC    1080 

PRINT" [BLK ] CCCCCCCCCCC 

,000,000,000 

XD   900 

POKE53280,6:POKE53281,6 

CCCCCCCCCCCCCCCCCCCCCC 

FR    500    DATA000,000,000,000,000 

DF    910 

PRINT" {CLRj (10    SPACES] 

CCCCCCClUP}" 

,000,000,000 

{BLK]Ci7golRED]L{CYN]0 

CS    1090 

PRINT"1UP) [13    SPACES]F 

BJ    510    DATA000,000,000,000,000 

[PUR]R    [GRNjPE73Ail3D 

unction   keys [CYN] " 

,000,000,128 

{RED}F[GRNJU{YELlN{BLK] 

CA    1100 

PRINT"{RVS) [2    SPACES)P 

HX    520    DATA000,000,000,000,000 

C{RED]TE23l|330i5aHg5gs 

i{off}={wht3exit  PROGR 

,000,000,000 

" 

AM{CYN){RVS}{8    SPACES) 

BX    530    DATA000,000,000,000,000 

MR   920 

PRINT" {BLK J  CCCCCCCCCCCC 

F2{0FF)= {WHT} SWAP   SCRE 

,000,000,000 

CCCCCCCCCCCCCCCCCCCCCCC 

ENS {CYNl " 

AC    540    DATA000, 000,000,000, 000 

CCCCClUPj" 

RQ   1110 

PRINT" (UP) {RVS} 

,000,003,255 

MR    930 

PRINT"{UPjil2    SPACESjMI 

(2    SPACES) F3{0FF]= 

BP    550    DATA000,006,005,000,014 

NOR    FUNCTIONS{CYN]" 

[WHT] SAVE    SKETCH    [CYN] 

,005,000,006 

JC    940 

PRINT" {RVS}FIRE{ OFF )= 

{RVS] {8    SPACES ]F4 (OFF] 

GJ    560    DATA005, 000,003,  255, 000 

{WHT]PEN    UP/DOWN    (CYN] 

= {WHT) LOAD    SKETCH {CYN J 

,000,000,000 

(RVSHS    SPACES} SHIFT-O 

II 

BC    570    DATA000,000,000,000,000 

,000,000,000 
FO   580   DATA000,000,000,000,000 

^^  ^w  j^       ft  ft  f^       jt/tft 

ED   950 

[OFF] ={WHT} STORE    PIC. 

[CYN]" 

PRINT" [RVS]    D,E[OFP)= 

PD    1120 

PRINT" [RVS] [2    SPACES] F 
5{0FFJ=(WHT}SAVE   TRANS 
.     [CYN] {RVS] [8    SPACES] 

,000, 000, 000 

[WHT] DRAW/ ERASE 

F6{OFF]= {WHT} LOAD    THAN 

RS    590    DATA000,000,000,000,000 

(2    SPACES] {CYN] [RVS] 

S. {CYN) " 

,000,000, 128 

[5   SPACES] SPACE tOFF)= 

HC    1130 

PRINT"{RVSj{2    SPACES] F 

QH    600    REM    LOAD/ SAVE 

[WHT 3  DRAW    COLOR icYNj" 

7{0FF)={WHT}HELP   SCREE 

PK    610    FC=PEEK(839) 

JF   960 

PRINT" [RVS] 13    SPACES] B 

N    {CYN){RVS}{8    spaces) 

MM    620    IF    FC=134   THEM    PRINT" SA 

{ OFF] = [WHT] BRUSH    SIZE 

F8{0FF1=(WHT}C0PY   scre 

VE    SKETCH{2    DOWN) " :BC5= 

[2    SPACES] [CYN] [RVS] 

ENicYN}" 

"  CP  •  " 

{3    SPACES] SHIFT-A{ OFF ]= 

SR    1140 

PRINT" ( BLK] CCCCCCCCCCC 

GR    630    IF    FC=138    THEN    PRINT "LO 

{wht]exch  color[cyn]" 

CCCCCCCCCCCCCCCCCCCCCC 

AD   SKETCH [2    DOWN] " :BC$= 

XE    970 

PRINT"{RVS}C(2){0FF]= 

CCCCCCCI3    UP)" 

"CP." 

{WHT]CLEAR{7    SPACES] 

MS    1150 

PRINT" {2    DOWN) 

JS    640    IF    FC=135    THEN    PRINT" SA 

[CYN] {RVS] [9    SPACES]A 

{10    SPACES} [RVS] RETURN 

VE   TRANSFER  12    DOWN)":BC 

{0FF]=(WHTJPEN   COLOR 

TO   CONTINUE {OFF} 

5= "ex." 

[CYN]" 

{3    UPj (CYN) " 

JP    650    IF    FC=139    THEN    PRINT" LO 

XH   980 

PRINT " { RVS ] 0 ( 2 ) [ OFF] = 

JB    1160 

GET   FC?sIF   FC5<>""    THE 

AD   TRANSFER[2    DOWN]":BC 

[WHT] OOPS [8    SPACES) 

N   GOTOH60 

5=  "ex." 

{CYN} [RVS] {7    SPACES) +,- 

HH    1170 

GET   PC$!IP   FC?=""    THEN 

AQ   660   GOSUB1310 

[OFF]={WHT]PEN   SPEED 

GOTO1170 

MF    670    FC$="" ! INPUT" ENTER    THE 

{CYN]  " 

EM    1180 

RETURN 

{SPACE} FILE    NAME";FC$:I 

SJ  990 

PRINT" {BLKlCCCCCCCCCCCC 

GM    1190 

REM    PRINT    BORDER 

F    FC5=""    THEN    GOTO880 

CCCCCCCCCCCCCCCCCCCCCCC 

HM    1200 

POKES  32 80, 6: POKE53281, 

JE    680    FC5=BC5-t-LEFT5(FC?,12) 

CCCCClUPj" 

6:PRINT"{CLR} "; 

HH    690    0PEN15,8, 15 

RG    100E 

!    PRINT"{UP}{12    SPACES}M 

BJ    1210 

BC$="{RVSJ     [OFF]":CR$= 

QJ    700    OPEN2,8,2,FC5+",P,R" iIN 

AJOR    FUNCTIONS {CYN)" 

"[BLK) [WHT] [RED] {CYN} 

PUT#1 5 , E, E$ : CL0SE2: CLOS 

QF    10ie 

1    PRINT" [RVS] [3    SPACES) F 

[PUR] {GRN}E73{YEL}Big 

E15 

[ OFF] =[ WHT) FILL 

i2a633§4gg5gE63E7gg8a" 

JA    710    IF    E>0   THEN    IF    F0137    T 

[8    SPACES] (CYN) {RVS) 

:CP=1 

HEN830 

{9    SPACES }X {OFF] = {WHT) 

CH    1220 

rpR    C=l    TO   40:GOSUB127 

MG    720    IF    E>0    AND    E<>62    THEN    1 

TRANSFER{CYN}" 

0  s  NEXT 

F   FC<137    THEN830 

QH    102e 

PRINT"{RVS}{3    SPACES]L 

GC    1230 

FOR   C=l    TO    23:GOSUB127 

FH    730    IF   FC=139    THEN    POKE    198 

{OFF]= {WHT j LINES 

0: PRINT" {2    LEFT) {DOWN] 

,l:POKE631,78 

(7    SPACES) {CYN} {RVS j 

"; :GOSUB1270:NEXT 

AS    740    IF    F013  7    THEN    PRINT" 

{9    SPACES) N{ OFF ]= [WHT] 

HS    1240 

FOR   C=l    TO    39:GOSUB127 

{3    DOWN] LOADING    ";FC$:L 

RETRAKSFER{CYN)" 

0SNEXT 

OAD    FC?,8,1 

XB    1030 

PRINT" {RVS] {3    SPACES) R 

MF    1250 

PRINT" {left} ";CHR5(148 

SM    750    POKE    840,FC:POKE841,LEN 

{ OFF] ={ WHT] RAYS 

);: PRINT"     (HOME) 

(FC$):PRINT"{3    DOWN] SAV 

[8    SPACES} [ CYN H RVS) 

{ 3    DOWN} " 

ING    ";FC$; "(3    DOWN] " 

{9    SPACES} T{OFF}= {WHT) 

KS    1260 

RETURN 

RB    760    FOR    Cl=l    TO    LEN ( FC? ) : PO 

TEXT {CYN 3" 

JK   1270 

REM    BORDER    CHARACTER 

KE841+C1,ASC(MID5(FC$,C 

AH    1040 

PRINT" {RVS} {3    SPACES] S 

DE    12  80 

CP=CP+1:IF    CP>16    THEN 

1,1)): NEXT 

{OFF}= {WHT) SQUARE 

[SPACE] CP=1 

FP    770    IF    FC=134   THEN    GOTO810 

{6    SPACES) {C'ra] {RVS) 

QS    1290 

PRINT  MID5(CR5,CP,1);B 

KH    780    EA=27002+INT(PEEK(27000 

{3    SPACES) CURSORS {OFF] 

C?; 

)*PEEK( 27001)) +10 

= {WHT] SHIFT    SCREEN 

AA    1300 

RETURN 

XD    790    EH=INT(EA/256) :EL=EA-(E 

{CYN}" 

SA    1310 

OFEN2,8,2:CLOSE2 

H*256) 

PF    1050 

PRINT"{UP}[RVS} 

DM    1320 

IF    STO0    THEN   GOTO13  50 

HP   800    POKEe60,EL:POKE861,EH 

{3    SPACES} Z[OFF}  =  [WHT] 

RF   1330 

OPEN15,B,15:OPEN2,8,  2, 

BM    810    SYS330005IF    PEEK ( 840 )=0 

ZOOM {8    SPACES) {CYN] 

"$, P,R" :INPUT#1S,E,E$: 

THEN    PR INT "GOOD    SAVE" : 

{RVS] {3    SPACES] SHIFT-S 

CLOSE2:CLOSE15 

GOTO840 

{OFF}= (WHT] SHADE 

BR   1340 

IF    E=0   THEN    GOTO 13 90 

DK   820    PRINT "BAD   SAVE" ; PEEK (84 

{6    SPACES] {CYN]" 

AR    1350 

B=B+1:IF   B<2    THEN   GOTO 

0):GOTO840 

GE    1060 

PRINT" [RVS] {3    SPACES] I 

1310 

HD   83  0    PRINTErE$ 

[0FF3= {WHT] ELLIPSE 

MF    1360 

B=0 
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MR    1370    PRIKT"TURbJ   ON   THE    DISK 
DRIVE   AND    INSERT   A    DI 

SK" 
DK    1380    GOSUBa40 5  PRINT" (down] " 

:GOTO1310 
XK    1390    RETURN 
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4E 

CE 

50 

CC50:0A 

BD 

55 

CE 

20 

3D 

8A 

CE 

C3 

C728:40 

03 

8D 

3D 

CE 

AD 

41 

03 

D0 

C9C0:CD 

46 

CE 

D0 

05 

A9 

01 

8D 

12 

CCS8:55 

CE 

D0 

F8 

CE 

57 

CE 

D0 

3C 

C730:8D 

3P 

CE 

AD 

42 

03 

BD 

40 

84 

C9C8:4B 

CE 

AD 

4A 

CE 

F0 

08 

AD 

08 

CC60:EE 

4C 

77 

CB 

AD 

54 

CE 

8D 

lA 

C738!CE 

AD 

2E 

CE 

85 

FB 

AD 

2F 

F3 

C9D0I4B 

CE 

F0 

03 

4C 

BD 

CA 

AD 

A8 

CC68:56 

CE 

A9 

08 

8D 

55 

CE 

20 

16 

C740JCE 

85 

FC 

AD 

30 

CE 

85 

FD 

DB 

C9D8!50 

CE 

F0 

03 

4C 

4E 

CA 

EE 

B6 

CC70:6C 

89 

CE 

55 

CE 

00 

FB 

CE 

4C 

C748:AD 

31 

CE 

85 

FE 

AD 

32 

CE 

0F 

C9E0:4C 

CE 

D0 

03 

EE 

4D 

CE 

AD 

90 

CC7B:56 

CE 

D0 

EE 

20 

6C 

89 

4C 

0C 

C750:8D 

3E 

03 

AD 

33 

CE 

BD 

3F 

A0 

C9E8S52 

CE 

F0 

06 

20 

6C 

89 

4C 

E9 

CC80:77 

CB 

AD 

54 

CE 

8D 

56 

CE 

EB 

C758!03 

AD 

34 

CE 

8D 

40 

03 

AD 

69 

C9F0:F5 

C9 

20 

Be 

89 

AD 

46 

CE 

BF 

CC8B:A9 

08 

8D 

55 

CE 

20 

B6 

89 

ED 

C760I35 

CE 

8D 

41 

03 

AD 

36 

CE 

0E 

C9FB:D0 

03 

4C 

99 

C9 

AD 

48 

CE 

3D 

CC90:CE 

55 

CE 

D0 

F8 

CE 

56 

CE 

4C 

C768:8D 

42 

03 

A9 

00 

SD 

41 

CE 

Dl 

CA00!l3 

6D 

46 

CE 

3D 

48 

CE 

AD 

8B 

CC93 : D0 

EE 

20 

36 

89 

4C 

77 

CB 

FO 

C770J20 

10 

C8 

4C 

E2 

C7 

A5 

FB 

6F 

CA08!49 

CE 

69 

00 

8D 

49 

CE 

CO 

20 

CCA0I1S 

C9 

20 

B0 

03 

4C 

77 

CB 

CB 

C778:8D 

2E 

CE 

A5 

FC 

8D 

2F 

CE 

D9 

CA10:4S 

CE 

F0 

07 

C9 

00 

00 

0F 

89 

CCA8 : 18 

C9 

5B 

B0 

0D 

C9 

40 

B0 

P7 

C780SA5 

FD 

8D 

30 

CE 

A5 

FE 

8D 

AF 

CA18:4C 

99 

C9 

AD 

48 

CE 

18 

CD 

C9 

CCB0:03 

4C 

CA 

CC 

33 

E9 

40 

4C 

3B 

C788:31 

CE 

AD 

3E 

03 

8D 

32 

CE 

7F 

CA20!44 

CE 

80 

03 

4C 

99 

C9 

EE 

ID 

CCB8:CA 

CC 

18 

C9 

CI 

B0 

03 

4G 

AD 

C790:AD 

3F 

03 

8D 

33 

CE 

AD 

40 

70 

CA28:4E 

CE 

AD 

51 

CE 

F0 

06 

20 

C9 

CCC0:77 

CB 

18 

C9 

OB 

B0 

D6 

38 

30 

C798S03 

8D 

34 

CE 

AD 

41 

03 

BD 

36 

CA30S00 

BA 

4C 

38 

CA 

20 

3D 

SA 

51 

CCC8:E9 

80 

80 

58 

CE 

8D 

55 

CE 

D4 

C7A0i35 

CE 

AD 

42 

03 

8D 

36 

CE 

El 

CA38:AD 

48 

CE 

38 

ED 

44 

CE 

8D 

BF 

CCD0:A9 

00 

85 

3F 

A9 

D8 

as 

40 

DF 

C7A8:AD 

37 

CE 

85 

FB 

AD 

38 

CE 

E4 

CA40:48 

CE 

AD 

49 

CE 

ED 

45 

CE 

7F 

CCD8:A5 

3F 

18 

69 

08 

85 

3F 

A5 

29 

C7B0:85 

FC 

AD 

39 

CE 

85 

FD 

AD 

CI 

CA48i8D 

49 

CE 

4C 

99 

C9 

EE 

4E 

B5 

CCE0:40 

69 

00 

85 

40 

CE 

55 

CE 

04 

80     COMPUTll     March  1988 


9030:89    20    SB    90    20    3D    8A    20    C3 

Color  Pad  2.0 

C288:20    91    B3   A2    00    BO   9C    CE    22 

9038: 8B    90    20   B6    89    20    8B    90    27 

C290:95    69   E8  E0    05   00   F6   AS    65 

9040:20    3D    8A    20    SB    90    20    B6   A9 
9048:89    20    8B    90    20    3D    8A    20   DB 
9050: SB    90    20    B6    89    20    SB    90    3F 
9058 :AD  AE    92    85    FB   AD   AF    92    2F 
9060:85    FC    AD    B0    92    85    FO   AD    98 
9068:81    92    85    FE   AD   B2    92    80    92 
9070:41    03    AD   B3    92    8D    42    03    36 
9078 :AD  B4    92    80    3E    03    AD   B5    D7 
9080:92    8D    3F    03    AD  B6    92    8D    61 
9088:40    03    60    A0    00    20    47    92    42 

C000!C9    4C   F0   14   C9    52   F0    13    65 
C008:C9    54    F0    12   G9   49    F0    11    29 
C010:C9    51    F0    10    20   E0    92    60   F3 
C018:4C    27    C0    4C    30    C0    4C    39    BC 
C020:C0    4C    3D   C0    4C    46    C0   A9    6F 
C028S00    8D    53    CE    20   4E   C6    60    8C 
C030:A9    01    8D    53    CE    20    4E   C6    08 
C038:60    20    38    CB    60    A9    05    3D    F6 
C040:9A   CE    20    4F    C0    60    A9    5 A   F0 
C048:3D    9A    CE    20    4F    C0    60    20    71 

C298:61    20    2B   BA   20    6B    E2    20    70 
C2A0:0F    BC    AC    SD    CE   A9    00    20    85 
C2A8:91    B3    20    2B    BA    A2    00   B5    B0 
C2B0:61    90   AB   CE   E8   E0    05    00    56 
C2B8:F6    20    0F    BO   A5    61    20    2B    8D 
C2C0:BA   A2    00   BD   80    CE    95    69    7D 
C2C8:E8   E0    05    D0   F6   AS    61    20   D9 
C2D0:6A   B8    20    71    BF    A2    00    B5    13 
0208:61    90   B5    OE    E8    E0    05    00    BF 
C2E0:F6    AD    89    CE   C9    00    D0    13    6E 
C2E8:A0    01    A9   00    20    91    B3   A2    85 

9090: AD   68   03    D0   03    4C    El    91    AE 
9098:AD   45    03   CD    21    00   D0   03    10 
90A0:4C    El    91    20    31    92    A5    FD  Bl 
90A8:18   69   00    85    FD  A5    FE    69    76 
90B0:D4    85    FE   Bl    FD   8D    87    92    60 
90Be:20    3C    92   AD    87    92    29    0F    0E 
90C0:CD    45    03    F0    11    Bl    FD    29    FD 
90Ca:0F   CD   45    03    D0    10   A9   AA    82 
9000:80    87    92    4C   C4    91    A9   FF    71 
9008: 8D    87    92    4C    C4    91    Bl    FD    87 
90E0S4A    4A   4A    4A   CD   45   03    00    02 
90E8:08   A9    55    8D    87    92    4C   C4    OF 
90F0:91    20    31    92    A5    FB    85    FD    58 
90F8:A5    FC    85    FE  AD    41    03    80   02 

0050 :A6    85   AS   C6   F0    03    40   48    IC 
C058:C6   A9   00    8D    5A   CE    20    56    25 
C060:86   A5    C6   D0    03    40   CA  C0    14 
C068:20    E4    FF    C9    2B    F0    07    C9    C4 
C0  70:2O    F0    15    4C    9A   00    EE    5A    3C 
0078: CE    AO    5A    CE    C9    5B    D0    05    67 
C080:A9    5A   80    5A  CE    4C    5E   C0   E9 
0088: CE    5A    CE   AO    5A    CE    C9    FF    5E 
C090!D0    05   A9   00    80    5A   CE   40   B0 
C098:5E   C0    18   C9    30   B0    03    4C   AF 
C0A0:AA   C0    18   C9    3A  B0    03    4C    2E 
C0A8:AD  00   4C   48   C6  A2    00    8E    8E 
C0B0:5A  CE    38   E9    30   AA   E0    00   A6 
C0Be:F0   0D   AD    5A   CE    18    69    0A   05 

C2F0:00    B5    61    90  A6    CE    E8   E0    0D 
C2F3:05    00    F6    A2    00    BD  A6    CE    51 
C300:95    61   BD  AB   CE    95    69   E8   A5 
C303:E0    05    D0   Fl    20    14   BB    20    63 
C310:0E    E3    20    0F   BC   A0    B4   A9    08 
C318:00    20    91    B3    20    2B    BA    20    58 
C320:0F   BC    A0   AE   A9    AS    20    A2    30 
C328:BB    20    14    BB    20    58    BC    20    CF 
C330:AA  Bl    SC    7D   CE    80    7E   CE    5B 
C338:AD   5F    CE   BD    8F    CE  AO   60    94 
0340 :CE    80    90    CE    20   F3    CS    AD    9B 
C348:80   CE   C9   02    P0    17   09   03    IE 
C350:F0    27    C9   04   F0    37   AD    70   D0 
C358:CE    80    91    CE   AD    7E   CE   80    5C 
0360:92    CE    40    9E   C3   A9   B4    38   BE 
C368:ED    70   CE    BD    91    CE    A9    00    14 
C370:ED    7E  CE   80    92   CE    4C    9E   48 
G37S:C3   A9   B4   18   60    70   CE   80   F0 
C380:91    CE  A9   00    6D    7E   CE    SD   4A 
C38a:92    CE   4C    9E   03   A9    68   38   4E 
C390:ED    7D   CE    3D    91    CE  A9    01    3D 
C398:ED    7E   CE   8D    92    CE   AD   91    26 
C3A0ICE    18    60    5A   CE    8D    91    CE    87 
C3A8:AO   92    CE    69    00    80    92    CE   46 
O3B0:AD    91    CE    SD    8F    CE   AO    92    CB 
C3B8:CE    8D   90    CE    20   F3   C5   A9   10 
C3C0I00    80    80    CE   AD    80   CE    C9   B3 
C3C8:02    F0    ID   C9   03    F0    2F    C9   Dl 
C3D0:04    F0    3F   C9   05    F0    51   AD    57 
0308:91    CE   80    7F    CE  A9   01    80    33 
O3E0!83    CE    80    87   CE    40    39   04   E6 
C3E8:A9   B4    38    ED   91    CE    80    7F   BA 
C3F0ICE  A9    00    8D    83    CE  A9    01    CE 

9100:87    92    A9    00    BD    88    92    8D    02 
9108:89    92    8D    8A   92    80    8B    92    63 
9110:CE   87    92    F0    10   A5    FD    38    29 

9118:E9    01    85    FD  A5    FE   E9    00   FD 
9120:85    FE    4C    10    91    Bl    FD    8D    2D 
9128:87    92    29    03    F0    0B    C9    02    52 
9130:F0   15    C9   01    F0   17   EE    8B    A7 
9138:92    4E    87    92    4E    87    92   AD  B5 
9140:87    92    F0    0F    4C    2A    91    EE    F7 
9148:88    92    4C    39    91    EE    89    92    5F 
9150:4C    39    91    EE    8A   92    AD   8A   80 
9158:92   C9   08   F0    10   A5   FD    18    72 
9160:69    01    85    FD   A5    FE    69    00    05 
9168:85   FE    4C    25    91    20    3C    92    02 
91 70: AD    88    92    18    CO    89    92    B0    CA 
9178:11   CD    SB    92   B0    15   Bl    FD   60 
9180:29    F0    0D    45    03    91    FO   4C    11 
9138 :CE    90   AD   89    92    18   CD    8B   Al 
9190:92    90    IB    20    31    92   A5    FD  A3 

0000:80    5A   CE    CA    4C   B6    00    4C    31 
C0C8:5E   C0   A5    FB    80    65    CE  A5    63 
C0O0:FC    8D    66   CE  A5   FD   80   67    95 
0003 :0E   A5    FE    80    68   CE   AD   3E    FB 
O0E0:03    80    69    CE   AD    3F    03    SD    SF 
C0E8:6A   CE   AD   40    03    80    6B    CE   01 
C0F0:AD    42    03    80    60   CE   AD   41    56 
C0F8:03    8D    6F    CE  AD   78   6  9   4A  A6 
0100:80    5B    CE   C9    00    F0    0B    80   FE 
C108:FO   CD   20    6C    89   CE   FC   CD   97 
C110:D0   FS   AD   79   69   4A   80    5D    74 
C118:CE   C9    00    F0    33    80    FC    CO    IC 
G120:20    3D    8A  CE    FC    CD   00    FS    FA 
C128:AC    5D   OE  A9   00    20    91    B3    25 
C130:20    0F   BC   A0    75   A9    00    20    9B 
C138:91    B3    20    2B    BA    20    0F   BC    59 
C140:A0    5A  A9    00    20    91   B3    20   AE 
C148:14   BB    20   AA   Bl    8C    50   CE   BC 
0150 :A5    FB    80    71    CE   A5    FC    80    03 

9198:18   69   00    85   FO  A5   FE   69   68 

C153s72    CE   A5   FO   80    73    CE  A5    DA 

91A0!O4   85    FE   AD   45    03    91    FD  Al 

C160:FE    8D    74   CE  AD    3E    03    80    3C 

C3F8:8D    87    CE   4C    39   C4   AD   91    91 

91A8!20    3C    92    4C    D6    90    Bl    FD    5C 

C168s75    CE   AD    3F    03    80    76    CE   0E 

C400!CE    38   E9   B4    8D    7F   CE  A9    39 

91B0I29    0F    80    88    92    AD    45    03    3F 

0170 :AD    40    03    80    77    CE   AD    42    A8 

C408:00    8D    83    CE    80    87    CE   4C   C6 

91B8:0A    0A    0A    0A    0D    88    92    91    86 

C178:03    8D    79   CE  AD   41    03    8D    03 

C410:39   04   A9   68   38   ED    91    CE    8E 

91C0:FD   4C    E9   90   AD   42    03    2D    E5 

C180:7B    CE  A0   AE  A9   A8   20   A2    47 

C418:8D    7F    CE  A9   01    80    83    CE   D0 

91C8:87    92    80    87    92    A9    FF    38    Fl 

C188:BB    20    0F    BC    A0    B4   A9    00    CA 

C420:A9   00    80    87   CE    40    39   C4    87 

9100: ED   42    03    SD    88    92    Bl    FB    A2 

C190:20    91   B3    20    14   BB   A2    00   05 

C428:AD   91    GE    38   E9   68    SD    7F    D5 

9108: 2D   88    92    0D    87    92    91    FB    70 

0198:35    61    90    9C   CE   E8   E0   05   AD 

C430:OE  A9    01    8D   83    CE    80    87    7E 

91E0:60   A9   FF    38   ED   42    03    80    2E 

C1A0:D0   F6    AC    5D   CE  A9    00   20   F2 

C43  8:CE   AC    7F    CE  A9    00    20    91    50 

91Ea:87    92    Bl    FB    2D    87    92    4C    63 

01A8:91    B3    20    0F    BO   AO    5B    CE    F4 

C440:B3    A2    00    3D    9C    CE    95    69    DC 

91F0:DE    91    AE   46   03    AC    46   03    7C 

C1B0;A9    00    20    91   B3    20    53   B8   A3 

C448:E8   E0   05    00    F6   A5    61    20    5D 

91Fa:a8    00    FD   CA    00    F7    60    A5    CD 

C1B8:20    58   BO   A2   00   B5    61    9D    SB 

0450: 2B    BA    20    64   E2   A2    00   BD  C7 

9200 :FB    18    69    01    85    FB    A5    FC    CA 

0100 :A1    CE    E8    E0    05    D0    F6   A9    F6 

C458:B5    CE    95    69    E8    E0    05    D0    5F 

9208:69   00    85    FC    60  A5   FD    18   10 

C1C8:00    80    5F    CE   A9    00    SD    60    51 

C460:F6    AS    61    20    2B    BA    20   AA    20 

9210:69   01    85    FD  A5   FE    69    00   B6 

C1D0!CE   AS    06    F0    06    20    E4    FF    87 

0468:B1    8C    81    CE   AC    7F    CE   A9   B5 

9218:85   FE    60   A5    FB    80  B9    92    42 

C108:4C   B9   C5   AD    5F    OE    30   8F    65 

C470:00    20    91    B3    A2    00    BD    9C    9C 

9220 :A5    FC    80    BA   92    60    AD   B9    DF 

C1E0:CE   AO    60    CE    8D    90    CE    20    9C 

C478:CE    95    69    E8   E0    05    00    F6    3E 

9228:92    85    FB   AO   BA    92    85    FC    7A 

C1E8:F3    C5   AO   SD   CE   C9    02   F0   F8 

0430 :AS    61    20    2B   BA    20    6B    E2    FB 

9230:60    A5    FD   80   BB    92    A5    FE   F9 

C1F0:15    C9    03   F0    ID   C9    04   F0   E9 

C488:A2   00    BD  B5    CE   95    69   E8   FE 

9238:80   BC    92    60   AD   BB    92    85    B2 

C1F8:25    C9   05    F0    20   AO   5F    CE    DE 

G490:E0    0  5    00   F6   AS    61    20    2B    7  3 

92  40:FD   AO   BC    92    85    FE    60    AD    27 

C200:8D    91    CE    40    33   C2   A9   B4   FB 

C498:8A    20    0F   BC   A0    5A   A9   00    P6 

9248:70    03   C9    57    F0    05   C9    58    9C 

0208:38    ED    5F    CE    SO    91    CE    40    9A 

C4A0:20    91   B3    20    2B   BA   20    0F   AA 

9250 :F0    IB    60    CE   71    03    00    14   FA 

C210:33   C2   AD    5F   CE   38   E9   B4    6B 

C4A8:B0   A0    75    A9   00    20    91    B3    59 

9258 !A9    0A    SD    71    03    EE    45    03    FE 

C218:8D    91    CE   4C    33   C2   A9   68   07 

C4B0:20    14    BB    20    AA   Bl    8C    85    83 

9260: AD   4S    03    C9    10   00    05   A9    22 

0220:38    ED    5F    CE    80    91    CE    4C   B2 

C4B8:CE   AD    71    CE    85    FB    AD    72    lA 

9268:00    80   45    03    60   CE    71    03    ED 

C228:33    C2   AD    SF    CE    38    E9   68    37 

C4C0:CE    85    FC   AD    73    CE    85    FO   60 

9270:00    0F    AD    46    03    4A    4A    4A    FB 

C230:3D    91    CE    AC    91    CE   A9    00    A0 

C4C8:AD    74    CE    85    FE    AD    75    CE    E0 

9278:8D    71    03   A9    01    80   68    03   CD 

C238:20    91    B3   A2    00   BD   9C   CE    Dl 

C4D0I8D    3E    03   AO    76   CE    8D    3F    3  5 

9280:60   A9   00    4C    70    92    00    00    3B 

C240:9S    69   E8   E0   05   00   F6   AS    15 

0408:03    AD   77    CE    8D    40    03    AO   4C 

9283:00    00    00    00    00    00    00   00   AD 

0248:61    20    2B    BA    20    64    E2    20    10 

C4E0:79   CE    80   42    03   AD    7B   CE   45 

9290:00    00    00    00    00    00    00    00    B5 

C2S0:0F   BC   AO    5B    CE  A9    00   20    IS 

C4Ea:8D    41    03    AD    81    OE    F0    13    01 

9298:00    00    00    00    00    00    00    00   BD 

0253:91    B3    20    2B    BA   A2    00    B5    60 

C4F0:AD   83    CE   D0    06    20   B6    89   C0 

92A0:00    00    00    00    00   00    00    00   C5 

C260:61    90  A6    CE    E8   E0    05   00    65 

C4Fa:4C    FE   04    20    6C    89   CE    81    AB 

92Ae:00    00    00    00    00    00    00    00    CD 

C268:F6    20    2B    BC    80    89    CE    20    F2 

C500:CE    D0    ED   AD    85    CE    F0    13    IC 
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CE  4C 
4C  0C 
CE  EB 
89  ED 
CE  4C 
CB  FO 
CB  CB 
B0  F7 
4C  3B 
4C  AD 
38  30 
CE  D4 
40  DF 
A5  29 
CE    04 
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CCE8:D0   EE   AD    54    CE    8D    57    CE    CB 

9383: 3F   A9    D8    85    40   A9    E3    8D    35 

9620:80    91    9C   4C    44    96    20    3D   CA 

CCF0:BD   59   CE  A9   08    8D    55   CE   0C 

9390 !B3    9C   A9    OB    80  B4    9C    20    44 

9628 :8A  A9   01    80   B2    9C    AD   03    64 

CCFa:20   00    8A   CE    55   CE    D0   F8   61 

9398:22    93   AS    FD    18   69    18    85    A7 

9630:00    18   69   08    80    03    00   A5    39 

CD00!CE    57    CE    D0    EE   AD    54   CE    65 

93A0SFD  AS   FE   69    75    85    FE  A9    10 

9638: 3F    18    69    28    85    3F   AS    40    6F 

CD0S:8D    57    CE   CE    57    CE   F0    06   E4 

93A8:E3    80   09    88    80    ID    83    80   00 

9640:69    00    85    40    4C    29    95   C9   02 

CD10!20    3D    8A   4C    0B    CD  A9    08   0C 

93B0:AA   90    80    9A   91   A9    03    8D    73 

9643:20    F0    23   C9   A0   F0    25    C9    9F 

CDia:8D    55    CE   AD   54    CE   8D    56   D3 

93B8:0F    88    80    23    83    8D    B0    90    D9 

9650:41    F0    27   C9    44    F0    2C   C9   E3 

CD20:CE    8D    57    CE  A0    00    AD    6E   CC 

93C0:8D   A0    91    A9    60    80    11    94    93 

9658s 45    F0    3B    C9    91    F0    3D   C9   FC 

CD2e:DC    29   FE   BD    0E    DC    AS   01    65 

93C8:20   DF    93   A9   A9    3D    11    94    3F 

9660:11    F0    39   C9    ID   F0    35    C9    F6 

CD30S29    FB    85    01    Bl    3F    8D    58    IE 

93D0S20    56    86   A5   C6   F0    08   A9    7C 

9668:90    F0    31    4C    4D    97    20    69    FD 

CD3e:CE   A5    01    09    04    85    01    AD    3B 

9308:01    80   B5    9C   4C   4D    97    A5    D0 

9670:83    4C    29    95    20    9B    33    4C   B3 

CD40S0E    DC    09    01    80    0E    DC    A9    53 

93E0:FB    80    93    9C   AS    FC    3D    94    76 

9678:29    95    20   AE    83    80    28   00    02 

CD4a:80    8D   40   CE   AD    58   CE    2D    16 

93E8:9C   AS   FD   80   95    9C   A5   FE   C9 

9680 :4C    29    95    20    57    83   A9    60    4F 

CDS0!40   CE   F0   00  A9    01    8D   67    82 

93F0:3D    96    9C   AD    41    03    3D    97    BE 

9688:80    7F    82    20    65    82    A9   AD   E4 

CD58I03    20    7F    BF   A9    00    8D   67    36 

93F8:9C   AD   42    03    8D    98    9C   AD   03 

9690:80    7F    82    4C    29    95    20    50  B6 

CD60103   20    6C   89   CE    56   CE   D0   E9 

9400: 3E    03    BD    99    9C   AD    3F   03    71 

96  98:33    4C    86    96    80    70    9C    20    5C 

CD68:E3   AD    54    CE    80    56    CE    4E    8A 

9408:80    9 A   9C   AD   40    03    80   9B    Di 

96A0!EF    97   A9   03    80   6F    9C   AD    22 

CD70140   CE    D0    D8    CE    59    CE    D0.D1 

9410S9C   A9    00    8D    67    03    A9   Bl    17 

96ABs70    9C   C9   91    F0   0E   C9    11    EB 

CD7e:0E  AD    54    CE   8D    59    CE   CE    3C 

9418s 8D   64    88   A9    60    8D   A9   88    El 

96B0:F0    10   C9    ID   F0    12    20   36    2C 

CD80S55   CE   00    03    4C  EC   CD  AD    63 

9420:20   CA   37    20    33    81   A9    91    83 

9668:89    4C    CB    96    20    00    BA   4C    03 

CD88!54   CE    BD    56   CE   A9   08    8D   D3 

9428: 3D    64    88   A9   A5    BD   A9   88    IC 

96C0:CB    96    20    3D    8A   4C    C3    96    05 

CD90:40   CE    20   B6    89   CE    40   CE   46 

9430 :A9    02    3D   15    D0   A9    FF    8D   6C 

96C8:20    6C    89   CE   6F    9C    D0   07    A6 

CD98:O0   FB   CE    56   CE   D0   EE    20   Dl 

9438:F9    07   AD   27    D0    80    28   00    26 

96D0:A9    00    BD  Bl    9C   4C   D3    93   F0 

CnA0:3D   8A  AD    54   CE    8D    56   CE  A0 

9440 :A9    7A   85    3F   A9   69    85    40   BF 

9608:Cr   B2    9C    F0    03    4C   4E   95    38 

CDA8:CE    57    CE    00    0C    AD    54    CE    F6 

9448 :A9    00    85    41    A9    04    65    42    B5 

96E0:A9    03    80   B2    9C   AS    FB    8D   81 

CDB0!8D    57    CE   E6    3F    00    02    E6    59 

9450 :A0    00   A9   A0    91    41    C8    91   BD 

96Ee:9D   9C   A5   FC   80   9E    9C   A5    56 

CDB8:40   4C    24   CD   20    6C    89    20   CE 

9458! 41    88   AS   41    18   69   00    35    FB 

96F0:FD    80    9F    9C  A5    FE    BD  A0    23 

CDC0:3D    8A  AD    54   CE    80    57    CE  C2 

9460:41   A5    42    69   04    85    42   Bl    65 

96FB:9C    AT    41    03    80   Al    9C    AD    12 

CDC8:CE    57    CE    F0    06    20    00    8A   C5 

9468: 3F    C9    FF    00    03    AD    21    00    92 

9700:42    03    8D  A2    9C   AD   3E    03    08 

CDD0S4C   C8   CD   4C    77    CB   A9    01    82 

9470:91    41    C8    91    41    83   AS    41    90 

9708:80  A3    9C   AD   3F   03    BO   A4    IB 

CDD818D    15    00   AD   FC    CD   85    3F    DE 

9478:38    E9   FE    35    41    A5   42    E9    7P 

9710 !9C   AD   40    03    80  A5    9C   AS    13 

CDE0:AD   FD    CD    85    40    AD   06    CE    78 

9430:03    85    42   A5    3F    18   69    01    C5 

9718: 3F    BD   A6    9C   AS    40    80  A7   D9 

CDESrSD   69   03    60    00    00    00    00   0C 

9488:85    3F   A5    40    69    00    85    40    93 

9720 :9C   AD   02   D0    8D  A8    9C   AD   4C 

CDF0:00    00    00   CI   06   CI    C9   CC   C6 

9490 :C9    6B    00   BE   AS    3F   C9   6E   AB 

9728:03    00    80  A9    9C   AD   90    9C   B2 

CDFBiCl    C2    CC    C5    00    00    00    00    IC 

9498:00   B8   AD  Bl    9C    C9    57   F0   D4 

9730:80  AA   9C   AD   91    9C    80   AB    05 

CE00:00    00    00    00    00    00    00    00    90 

94A0S25   A9    15    80   02   00   A9    2C    15 

9733 :9C   AD    10   D0    80   AC    9C   A9    32 

CE08:00   00   00   00    00   00   00   00  A5 

94A8:80   03    D0   AD    10    00    29    FD   62 

9740:57    80  Bl    9C    20    SB    90    20    EE 

CE10:00    00    00    00    00    00    00    00   AD 

94B0:8D   10   00   A9    01    80    90    9C    55 

9748: EF    97    4C   DF    93    A9    18   85    D5 

CE18i00    00    00    00    00    00    00    00    35 

94B8:3D    91    9C   A9   00    85    3F   A9    79 

9750! 3F   A9    79    85    40   A9   00    85    3F 

CE20:00    00    00    00    00    00    00    00   BD 

94C0:04    85    40    4C    29    95    AD    9D   B2 

9758:41    A9    04    85    42   A9   00    80  Bl 

CE23$00    00    00    00   A4   B0   00    00   AD 

94C8!9C    85    FB    AD   9E    9C    85    FC    6B 

9760 :B3    9C   A9    70    80  B4    9C    20    36 

CE30:00   00   00   00   00   00   00   00  CD 

94D0:AD    9F   9C    85   FD  AD  A0    9C    29 

9768:22    98   A9   00   85   41   A9   08   61 

CE38S00    00    00    00    00    00    00    00   D5 

9408:85    FE    AD   Al    9C    8D    41    03    F4 

9770:85    42   A9   E8    80  B3    9C   A9   04 

CE40:00   00   00    00    00   00   00    00   OD 

94E0IAD  A2    9C    BD   42    03   AD  A3    13 

9778:80    80   B4   9C    20    22    98   A9    10 

CE4ei00    00    00    00    00    00    00    00   E5 

94E8!9C    80    3E    03    AD  A4    9C    80    82 

9780:00    8D   09   88   80    10   83    80    3C 

CE50:00   00    00    00    00    00    00    00   ED 

94F0:3F   03   AD  AS    9C    80   40   03    29 

9788 :AA   90    80   9A   91    A9   04   80   F6 

CE58:00   00    00    00    00    00    00    00   F5 

94F8:AD  A6    9C   85    3F   AD  A7    9C    2B 

9790s 0F    88    BD    23    83    3D  B0    90   B9 

CE60:00   00    00   00   00    00    00    00   FD 

9500:85   40   AD  A8    9C    8D   02   D0    2E 

9798 :8D   A0    91    20    EF    97    A5    FD   12 

CE68:00    00    00    00    00    00    00    00    06 

95085AD  A9    9C    BD   03    00   AD  AA   42 

97A0:38   E9    13    35   FD  A5   FE   E9    30 

CE70:00    00    00    00    00    00    00    00    0E 

9510: 9C    8D    90    9C    AD   AB    9C    80    AB 

97A8i75    85    FE   AD   5E    9C    85    3F    5E 

CE78:00    00    00   00    00    00    00    00    16 

9518:91    9C   AD  AC    9C    80    10   00   BF 

97B0:AD    SF    9C   85    40   AD    60    9C    90 

CE80:00   00    00   00    00    00    00   00    IE 

9520:29    02   F0    05   A9   FE    3D   F9    20 

9738:85    41    AD   61    9C    85    42   A9   EF 

CE8S:00   00   00    00    00    00    00    00    26 

95  28:07   A2    73    8A   A3    88   00   FD   9D 

97C0:00    80   67    03   A9   00    80  Bl    8A 

CE90:00    00    00    00    00   00    00    00    2E 

9530 sCA   00   F9   A5    C6   F0    0A   20   BC 

97C3:9C   A9   01    80    15    00  AD    18    09 

C£98:00    00    00    00    00    00    00    00    36 

953B:E4   FF   A2   00    86    C6   4C   47    59 

97D0!D0    09   08   eo    18   D0   AD    11   F4 

C£A0:00    00    00    00   00    00    00    00    3S 

9540:96   AD   00    DC    80   92    9C    29   09 

97D8sD0    09    20    8D    11    00   AD    16    CC 

CEA8:00    00    00    00    00    00    00    00   46 

9548:10    00    03    4C    08   96   AD   92    E3 

97E0:D0    09    10    80    16   D0   AD  B5    9A 

CEB0:00    00    00    00    00   00   00    00   4E 

9550 :9C    29   08   D0    3F   EE   90    9C    95 

97Ee:9C    00   03    4C    3A    93    60   AD   4E 

CEB8:00   00    00    00    00    00    00    00    56 

9558:A0   90    9C    C9    15    D0    08   A9    54 

97F0:93    9C    85    FB    AD    94    9C    85    FF 

9560:14    80    90    9C    4C    94    95    20   D4 

97F8:FC   AD   95    9C    85    FD  AD   96    A4 

Color  Pod  3.0 

9568 !6C    89   A9   01    8D   B2    9C   AD   8F 

9800 :9G    85    FE  AD   97    9C    80   41    27 

9570:02    00    18    69   10    80    02   00   F5 

9808:03    AD   98    9C    8D    42    03   AD   2C 

92E0SAE   47    03    E0    8D  F0    ID   C9   01 

9573:90    00   AD    10   D0    09   02    80    22 

9810:99    9C    BD   3E   03   AD    9A   9C    6B 

92EB!D2    F0    IC    C9    5A   F0    IB    C9    6A 

9580S10   00   A9   FE    8D  F9    07   AS    15 

9818:80    3F    03   AD   9B    9C    8D    40   C5 

92F0ID3   F0    lA  C9    91    F0    19   C9    68 

9588: 3F    13   69   02    85    3F  AS   40    SB 

9820:03    60   A0    00   Bl    3F    91    41    ED 

92F8:11    F0    15    C9    ID   F0    11    C9    BA 

9590:69    00    35    40   AD   92    9C    29    3F 

9e28!A5    3F    IB   69   01    85    3F   AS   D7 

9300:90   F0    0D   60   4C    51    98    4C   FE 

95  98:04    D0    3D   CE    90    9C   AD   90    71 

9830:40    69    00    85    40   AS    41    18   67 

9308:13    93    4C    3A   93    4C    2E   93    88 

95A0S9C   00    08   A9    01    8D    90    9C   ES 

9838! 69    01    85    41    AS    42    69    00    2C 

9310: 4C   FF    99   AD    70    03    C9    57   E5 

9SA8:4C    08    95    20   B6    89   A9   01    IS 

9340:85    42   AS   40   CD  B4    9C   D0   C8 

9318 sF0   0B    A9    57    8D    70    03    A9   03 

95B0S8O  B2    9C   AD    02   00    38   E9   6B 

9848:09   AS    3F   CO  B3    9C   00   02    19 

9320!0A   80    71    03    60   AD   45    03    55 

95B8sl0    80   02    00   B0    00   AD   10   CI 

9850:60  A2    00   BD   BE    9C   29    7F    EE 

9328s 8D   20   00   4C    IC   93    AD   70    F7 

95C0:D0    29    FD    80    10    00    A9   FF    4E 

9858:90    86    9C    E8   E0   02    D0   F3   C0 

9330:03   C9    58   F0   F0   A9    58   4C   90 

95C8s8D   F9   07   A5    3F    38   E9   02    25 

9860 iA9    01   A2    08   A0   00    20   BA   7B 

93  38: IC   93    20    06    86   A9    00    BD    IF 

95D0:85    3F   A5    40   E9    00    85   40    El 

9868 sFF   A2   86   A0    9C   A9    02    20   CC 

9340:69   03    80  B5    9C  A5    3F   SD   71 

gSDSsAD   92    9C    29    01    D0    2E   CE    IC 

9870  sBD   FF    20   C0    FF   A2    01    20    3D 

9348: 5E   9C   A5   40    8D    5F    9C   A5   47 

95E0t91    9C   AD    91    9C   00    08   A9   AC 

9878:C6   FF   A9   93    20    02   FF   A9    71 

9350:41    80    60    9C   A5    42    3D    61    04 

95E8S01    BD    91    9C    4C    0D   96    20   07 

9880:06    8D   20   D0    80    21   00   A9    65 

9358: 9C   A9   03    3D   B2    9C    A9    14   E0 

95F0:00    8A  A9    01    80   B2    9C   AD    22 

9888 !9F    20   D2   FF   A9    12    20   02    94 

9360 :8D   78   69   A9    19    8D    79    69    8F 

95F6:03    00    38   E9   08    80   03    D0   CC 

9B90iFF    20    CF   FF    20   CF   FF    20    24 

9368sA9   00    85    3F   A9    04    85    40   Bl 

9600  :A5    3F    38   E9    28   85    3F   AS    F0 

9898 sCF    FF    20    CF    FF    20    CF    FF    02 

9370SA9    18    85    41    A9   79    85    42   B7 

9608:40   E9    00    85    40   AD    92    9C   A2 

98A0!8O   4F   9C   20    CF   FF    8D    50    EB 

9378iA9   ES   SD   B3    9G   A9   07    80   C2 

9610:29    02   D0    30    EE    91    9C   AD    14 

98A8s9C   AC    4F   9C   AD   50    9C    20    0F 

9380  :B4    9C    20    22    98   A9    00    85   40 

9618:91    9C   C9    lA    00    08   A9   19    2  3 

98B0:91   B3    20   0F  BC   A0    64  A9    67 
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9SB8 

9ac0 
9aca 

98D0 
98D8 
98E0 
98E8 
98F0 
98F8 
9900 
9908 
9910 
9918 
9920 
9928 
9930 
9938 
9940 
9948 
9950 
9958 
9960 
9968 
9970 
9978 
99S0 
9988 
9990 
9998 
99A0 
99A8 
99B0 
99B8 
99C0 
99C8 
99D0 
99D8 
99E0 
99E8 


:00  20 
:AA  Bl 
:30  20 
:1E  20 
!64  A9 
i20  2B 
:9C  80 
:ED  6D 
!50  9C 
i20  91 
:A9  00 
t20  AA 
!69  30 
:A9  00 
;A0  0A 
j61  20 
!6D  9C 
!9C  18 
:20  20 
;5E  9C 
!03  4C 
!22  D0 
;FF  C9 
;20  B7 
:5E  9C 
;4C  E2 
;FF  C9 
:A9  0D 
;D2  FF 
;1D  20 
;F6  AD 
:CF  FF 
;D0  28 
;EB  A9 
:F0  0E 
;20  A5 
:20  B7 
97  98 
■7F  20 


91  B3 

8C  6D 

D2  FF 

91  B3 

00  20 

BA  20 

6E  9C 

9C  8D 

ED  6E 

B3  20 

20  91 

Bl  8C 

20  D2 

20  91 

A9  00 

2B  BA 

AD  4F 

69  30 

D2  FF 

20  B7 

E2  99 

E9  20 

22  F0 

FF  C9 

20  D2 

99  20 

20  F0 

20  D2 

A9  16 

D2  FF 

5E  9C 

8D  5E 

AD  5E 

0D  20 

20  E4 

C6  F0 

FF  C9 

A2  00 

D2  FF 


20  14 

9C  98 

AC  6D 

20  0F 

91  B3 

AA  Bl 

AD  4F 

4F  9C 

9C  8D 

0F  BC 

B3  20 

6D  9C 

FF  AC 

B3  20 

20  91 

20  AA 

90  38 

20  D2 

20  CF 

FF  09 

AD  5E 

D2  FF 

16  80 

00  D0 

FF  4C 

D2  FF 

F6  8D 

FF  A9 

8D  72 

CE  72 

20  D2 

9C  20 

9C  09 

D2  FF 

FF  09 

FC  20 

00  D0 

BD  55 

ES  E0 


3B  20  48 

18  69  FC 
9C  A5  6E 
BC  A0  DO 
A5  61  B0 
8C  6D  E8 
9C  38  7F 
AS  AD  CC 

50  9C  76 
A0  0A  D6 
14  BB  2F 
98  18  24 
6D  9C  67 
0F  BC  3E 
B3  A5  B7 
Bl  60  C8 
ED  6D  03 
FF  A9  ED 
FF  8D  BB 
00  F0  71 
9C  C9  FF 
20  CF  BE 
5E  9C  Al 
09  AD  41 
66  99  CA 
20  OF  6E 
5E  90  88 
91  20  F6 
90  A9  E4 
90  00  0F 
FF  20  C4 
B7  FF  38 
00  00  06 
A5  C6  A0 

51  F0  05 
E4  FF  97 
12  40  5A 
9C  29  FF 
09  D0  EB 


LEARN 
PROGRAMMING 


MASTER  COMPUTERS 
IN  YOUR  OWN  HOME 

TiO*  ycm  can  write  programs  and  g" 


fnosi  oui  ol  any  compmei  ano  avM  Wvirtg 
IQ  pay  rrie  htgh  prce  ol  pre  packaged 

LEARN  AT  YOUR  OWN  PACE 
IN  YOUR  SPARE  TIME 

ftjf  iri(]e()en<Jeril  slildy  pjogram  Sifows  you 
to  learn  aboul  comptjiers.  operstinns.  appii- 
cftlions  flnfl  cKogrammrng  m  ^uf  spaie  time 
at  tiome  Our  nstructors  (xovide  ^u  witti 
me-onone  coureeliixj 


LEARN  EVEN  BEFORE  YOU  DECIDE  ON  A  COMPUTER 

xverytfiiiig  is  explattial  in  amofe  languase  You  will  enfoy  leamirig  to 
jse  a  coniputef-EVEN  F  YOU  DONT  OWN  ONE  Leam  to  program  on 
any  personai  eonvuler  IBM.  APPtf.  COMMODORE.  TRa  aid  more. 
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9G28!08  85 
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42  A9  7C 
46  A9  02 
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40  A9  03 
42  A9  50 

46  A9  FA 
48  A9  C6 
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A5  42  3B 
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BASIC  Sketch  Loader 

JS    100    POKE52,32:POKE56, 32!CLR 
PH    110    IF    (PEEK (49998) =87)    0R( 

PEEK(49998)=88)    THEN   GO 

TO140 
AJ    120    PRINT" {CLR) LOADING    CPBA 

SIC.013    DOWN)" 
XS    130    POKE4999a,87:LOAD"CPBAS 

ICO", 8,1 
HC    140    IF    PEEK(49998)=8a    THEN 

{ SPACE] GOTOl 90 
KG    150    PRINT" PLEASE    ENTER    THE 

tSPACE} COLOR    PAD" 
SF    160    INPUT"FILE    NAME    (EXCLUD 

E   CP.)";FL? 
ED    170    PRINT" {3    DOWN] LOADING    0 

P.";FL5 
QA    180    P0KE49998,88sL0AD"CP."+ 

FL$,8,1 
ED    190    POKE49999,87:SYS50000 
GP    200   GET    IN$:IF    INS<>""    THEN 

GOTO200 
OX    210    GET    IN$:IF    IN$=""    THEN 

( SPACE] GOTO210 
RP    220    SYS50000: PRINT" ICLR}" 
AP    230    POKE49998,0 
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4A  4A 
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11  D0 
16  00 
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80  21 
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FD  18 
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"Math  Draw"  is  a  menu-driven  program  that  can  create  graphic  webs,  seasliells,  and  wheels. 


Math  Draw  For  Amiga 


Create  com-plex  geometric  patterns 
with  this  menu-driven  graphics  pro- 
gram for  the  Amiga.  When  \/ou've 
finished,  you  can  save  your  picture  as 
an  IFF  graphics  file  for  use  with 
Deluxe  Paint  II  and  other  Amiga 
paint  programs.  Requires  512K. 


"Math  Draw"  lets  you  create  intri- 
cate geometric  designs  and  pat- 
terns, even  if  you  don't  understand 
the  mathematics  behind  them.  Use 
the  special  menu  to  select  from  a 
palette  of  32  different  colors  and  sev- 
eral different  drawing  options.  When 
you've  finished  your  picture,  you  can 
save  it  in  IFF  ILBM  format,  which  is 
used  by  most  paint  programs. 

Math  Draw  is  written  in  Amiga 
Basic.  Type  it  in  and  save  it  to  disk. 
When  you're  ready  to  use  the  pro- 
gram, load  and  run  it. 

Math  Draw  starts  drawing  im- 
mediately. After  you've  seen  the 
pattern  it  draws,  activate  the  Amiga 
menus  by  pressing  the  right  mouse 
button.  Math  Draw  adds  an  Option 
menu  to  Amiga  Basic's  menus. 
While  holding  the  right  button, 
slide  the  mouse  pointer  up  to  the 
word  Option  to  see  the  new  menu 
options.  To  choose  an  option,  re- 
lease the  button  while  pointing  to 
the  desired  option.  Here  is  a  list  of 
the  new  options; 

•  Color  Control.  When  you  activate 
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this  function,  you'll  be  presented 
with  a  chart  which  shows  32  colors, 
each  labeled  with  a  number.  Choose 
a  new  drawing  color  by  entering  a 
number.  The  32  colors  are  fixed; 
they  cannot  be  changed  from  with- 
in the  program.  If  you  wish  to 
change  the  colors,  you'll  need  to 
modify  the  numbers  in  the  first  set 
of  DATA  statements  in  the  program. 

•  Radius  Control.  Math  Draw 
works  by  moving  an  imaginary  cir- 
cle inside  or  outside  another  imagi- 
nary circle.  The  drawing  pen  is 
"attached"  to  the  edge  of  the  mov- 
ing circle.  You  change  the  size  of 
these  circles  (and  thus  the  scale  of 
your  drawing)  by  choosing  the  Ra-' 
dius  Control  menu  selection.  You'll 
be  asked  for  new  radius  values  for 
the  circles. 

•  Growth  Control.  If  you  choose, 
the  imaginary  circles  used  to  move 
the  drawing  pen  can  grow  at  a  fixed 
rate.  This  feature  can  be  used  to 
create  spirals  and  shell  designs. 
Normally,  you'll  want  to  keep  this 
parameter  at  its  default  value,  0.  A 
reasonable  growth  rate  is  0.01.  A 
negative  number  will  make  the  cir- 
cles shrink. 

•  Type  Control.  This  option  lets 
you  choose  between  drawing  epi- 
cycloids and  hypocycloids.  In  an 
epicycloid,  the  moving  circle  moves 
around  the  outside  of  the  stationary 
circle.  In  a  hypocycloid,  the  moving 
circle  moves  around  the  inside  of 


the  stationary  one. 

•  Pause.  This  option  halts  drawing. 
After  selecting  this  option,  the 
drawing  pen  freezes.  This  is  useful 
when  you  want  to  make  several 
changes  to  the  pen  at  once.  For 
instance,  you  may  want  to  change 
the  pen  color  and  the  outer  radius 
at  the  same  time.  Select  Pause  and 
then  use  the  menu  options  to  select 
the  new  color  and  the  new  radii. 
Continue  is  used  to  start  the  pen 
moving  again. 

•  Continue.  Ends  Pause  mode. 

•  Save  Picture.  Saves  your  picture 
as  an  IFF  fUe  compatible  with  De- 
luxe Paint  11,  Digi-Paint,  Aegis  Im- 
ages, and  other  Amiga  paint 
programs.  Since  the  save  routine  is 
written  entirely  in  BASIC,  it  takes  a 
few  minutes  to  save  a  picture.  Be 
sure  not  to  drop  any  menus  down 
while' the  picture  is  being  saved,  or 
else  you'll  see  ghosts  of  the  menus 
in  your  saved  pictures. 

•  Clear.  Clears  the  screen.  Since 
your  work  could  be  lost  if  you  acci- 
dently  select  this  option,  you'll  be 
asked  whether  you're  sure  you 
want  to  clear  the  screen. 

•  Quit.  Exits  to  BASIC  cleanly.  You 
should  always  use  this  menu  option 
to  stop  the  program.  If  you  quit 
another  way,  type  MENU  RESET  to 
disable  the  Math  Draw  menu  and 
SCREEN  CLOSE  1  to  free  up  the 
screen  created  by  Math  Draw.  Since 
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your  work  could  be  lost  if  you  select  this  option 
acddently,  you'll  be  asked  whether  you're  sure  you 
want  to  quit. 

Your  First  Drawing 

Let's  create  a  picture.  First,  select  Pause  to  freeze  the 
drawing  pen.  Now  select  Clear  to  erase  any  picture 
that  nught  be  on  the  screen.  Select  Color  Control  and 
pick  a  color.  Now  select  Radius  Control,  Type  30  at 
the  first  prompt,  8  at  the  second.  Select  Continue,  and 
a  pattern  will  be  drawn.  When  the  pattern  begins  to 
repeat,  select  Pause  again  and  then  change  the  color. 
Change  the  radii  to  50  and  10,  Repeat  this  process 
until  you're  satisfied  with  your  picture.  If  you  wish  to 
save  it,  select  the  Save  option. 

When  you're  ready  for  a  new  effect,  turn  on  the 
Growth  control.  A  moderate  value  for  Growth  is  0.01, 
but  try  values  like  0.001,  1,  and  10  to  see  how  Growth 
works. 

The  following  table  has  six  sets  of  parameters 
that  produce  attractive  designs.  After  seeing  what 
they  do,  try  combining  them. 

Radius  1     Radius  2  Growth      Type 

120  35  0  2 

75  25  -.1  1 

10  45  0  2 

80  46  0  2 

30  16  0  1 

40  16  0  1 

After  you  have  saved  a  couple  of  pictures,  go  to  a 
paint  program  and  fill  in  different  areas  with  different 
colors.  From  within  the  paint  program,  you  can  modi- 
fy the  palette  colors  if  you  like. 

Math  Draw 

For  instructions  on  entering  this  program,  please  refer  fo  "COMPUTEl's 
Guide  to  Typing  in  Programs"  elsewhere  In  tills  issue. 

'Math    Draw-* 

'Copyright  1983* 

'COMPUTEl  Publications,  Inc.* 

'All  Rights  Reserved-* 

4 

CLEAR  32767-* 

DEFSNG  a-z  :  DEFDBL  g,h,theta-* 

TRUE!  =  -1  :  FALSE%  =0  i  PI  =  3.141S93  :  speed  = 

PI/100-* 
DIM  cmap$(31)-« 
■* 
coLours:* 

DATA  0,0,0,  10,10,10,  6,0,0,  9,0,0,  12,0,0,  15, 
0,  0-t 

DATA  0,6,0,  0,9,0,  0,12,0,  0,15,0,  0,0,6,  0,0,9 
•« 

DATA  0,0,12,  0,0,15,  4,4,0,  7,7,0,  10,10,0,  13, 
13,0-« 

DATA  4,0,4,  7,0,7,  10,0,10,  13,0,13,  6,3,0,  8,4 
.0* 

DATA  10,5,0,  12,6,0,  4,6,12,  8,4,12,  4,12,8,  12 
,8,4* 

DATA  12,4,8,  8,12,4* 

* 
ON  BREAK  GOSUB  NoMore* 
BREAK  ON* 

SCREEN  1,320,200,5,1:WINDOW  3 , " " , (0 , 0 )- ( 311 , 186 ) 
,16,1:WIND0W  OUTPUT  3* 
RESTORE  COLOurs* 
FOR  i%=0  TO  31* 

READ  r,g,b* 

PALETTE  i%,r/l5,g/l5,b/15* 

cmap?  (  it )  =CHR5  £  r*  17 )  -l-CHR?  ( g*  17 )  +CHR5  (b*  17 ) * 
NEXT  i%   * 

MENU  3,0,1, "Options"* 
MENU  3, 1,1, "Color  Control"* 


MENU  3, 2,1, "Radius  Control"* 
MENU  3, 3,1, "Growth  Control"* 
MENU  3,4,1, "Type  Control"* 
MENU  3, 5,1, "Save  Picture"* 
MENU  3,6,1, "Pause"* 
MENU  3,7,1, "continue"* 
MENU  3,8,1, "Clear"* 
MENU  3,9,1, "Quit"* 
ON  MENU  GOSUB  checkmet>u* 

a=100:b=20 !type%=l :coLour=10:deLtaA=0:deLtaB=0* 
starting  =  TRUE%  :  pause  =  FALSE%* 
nextpoint :* 
MENU  ON* 

WHILE  pause: WEND* 
MENU  STOP* 
g  =  (a-(-b)/b  :  h  =  (a-b}/b* 
theta  =  theta+speed* 
a  s  a-fdeLtaA* 
b  =  b-HdeLtaB* 
oLdx  =  X :  oLdy  =  y* 

IF  typel  =  1  THEN  GOSUB  EpicycLoid  ELSE  GOSUB  K 
ypocycLoid* 

IF  NOT  starting  THEN  LINE  (  160-«-oLdx,  100-t-Ol,dy*  .  8 
8)-(160+x,100-Hy*  .88)  ,coLour* 

starting  =  FALSE%* 
GOTO  nextpoint* 
* 

EpicycLoidi* 
X  =  (a-l-b)*C0S(theta)-b*COS(g*theta)* 
y  =  (a■^b)*SIN(theta)-b*SIN(g*theta)* 
RETURN* 
* 

HypocycLoid : * 
x=  ( a-b)  *C0S(  theta  )-Hb* cos (h* theta)* 
y=(a-b)*SIN( theta )-b*SIN(h*theta)* 
RETURN  * 
* 

checkmenu:* 
menuid=MENU(0)* 
menuitem=HENU( 1 ) * 
IF  menuid=3  THEN* 
IF  raenuitetn  =  1  THEN* 
WINDOW  4,"", (0,0)-(260,32),18,l:WINDOW  OUTPUT 
4* 

FOR  xx%=0  TO  7* 
FOR  yy%=!0  TO  3* 
LINE  ( xx%*3 2+16, yy%*16-F8)-(xxS*3 2-1-24, yy%*  16 
-1-16  ) ,  xx%-i-yy%*a ,  bf  * 

LOCATE  yy%*2-t-2,xxl*4-i-l* 
PRINT  RIGHTS (STR?{xx%-l-yy%*a)  ,2)  ;* 
NEXT  yy%* 
NEXT  xx%* 
LOCATE  10,4* 

INPUT  "Choose  a  Color" rcoLour  :  coLour=coLour 
MOD  32* 

WINDOW  OUTPUT  3* 
WINDOW  CLOSE  4* 
END  IF* 

IF  raenuitera  =  2  THEN* 
WINDOW  4,"", (0,0)-(2e0,65) ,18,1:WIND0W  OUTPUT 
4* 

PRINT  "Current  Radius" :PRINT"  of  Stationary  C 
irclej" ;a* 

INPUT  "New  Radius"; a* 

PRINT  "Current  Radius" : PRINT"  of  Moving  Circl 
e:";b* 

INPUT  "New  Radius" ;b* 
a=ABS(a)  :b=ABS(l3)* 
IF  a=0  THEN  a=l* 
IF  b=0  THEN  bssl* 
starting  =  TRUE%* 
WINDOW  OUTPUT  3* 
WINDOW  CLOSE  4* 
END  IF* 

IF  nienuitem  =  3  THEN* 
WINDOW  4, "", C0,0)-(300, 50) , 18, 1 iWINDDW  OUTPUT 
4* 

PRINT  "Current  Growth  Rate : "ideLtaA* 
INPUT  "New  Rate" ;deLtaA:IF  a<>0  THEN  deLtaB=d 
eLtaA*b/a* 

starting  ==■  TRUE%* 
WINDOW  OUTPUT  3* 
WINDOW  CLOSE  4* 
END  IF* 
IF  menuitem  =  4  THEN* 
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WINDOW  4,"",  (a,0)-C250,5Q),18,l!WItIDOW  OUTPUT 

PRINT  "Choose  a  Types"* 

PRINT  "1.  Epicycloid  (Outside)"-* 

PRINT  "2.    Hypocycloid  (Inside)  "•« 

PRINTiPRINT"Current  Type  =";type%* 

INPUT  "New  Type"rtype%-« 

IF  type*  =■  2  THEN  speed  =  Pl/50  ELSE  speed  = 

pi/i0ef-« 

starting  =  TRUEt'* 

WINDOW  OUTPUT  3* 
WINDOW  CLOSE  4-* 
END  IF-* 

IF  menu  it  em  =  5  THEN-* 
WINDOW  4,"",(0,0)-(300,40) ,ia,lsWlNDOW  OUTPUT 
4* 

INPUT  "Filename  For  Save";fiL$-« 
WINDOW  OUTPUT  3  !  WINDOW  CLOSE  4-« 
IF  fiL?<>""  THEN  GOSUB  aavepic* 
END  IF* 

IF  raenuitem  =  6  THEN  pause  =  TRUE** 
IF  menuitera  =  7  THEN  pause  =  FALSE%* 
IF  menuitera  =  8  THEN* 
WINDOW  4,"",(0,0)-(250,50),ia,l!WISDOW  OUTPUT 
4* 

PRINT  "Are  You  Sure  You  Want":PRINT"  To  Erase 
the  Screen?"* 
INPUT  a$* 

WINDOW  OUTPUT  3  s  WINDOW  CLOSE  4* 
IF  UCASE$(LEFT$(a$,l))="Y"  THEN  CLS  i  startin 
g  =  TRUE     * 
END  IF* 

IF  menuitem  =  9  THEN* 
WINDOW  4,"", (0,0}-(250, 50), 18,1  :  WINDOW  OUTP 
UT  4* 

PRINT  "Are  You  Sure  You  Want  To  Quit?"* 
INPUT  a?* 

IF  UCASE?(LEFT$(aS,l) )="Y"  THEN  GOTO  NOHore* 
WINDOW  OUTPUT  3  :  WINDOW  CLOSE  4  * 
END  IF  * 
END  IF  * 
RETURN* 


savepici* 

raatportt  =  WIND0W(8)* 

bitmaps.  =  PEEKL(  rastport&+4)* 

topLine  =  0* 

topadd  =  topLine  *  40* 

FOR  i%  =  0  TO  4* 

pLane&(i%>  =  PEEKL(bitmap&  +  3  +  i**4)+topadd* 
NEXT* 

bottomLine  =  200* 
Lines  =  bottomLine  -  topLine* 
OPEN  fiL?  FOR  OUTPUT  AS  1* 
a?  =  MKL5(Linea  *  40  *  5  +  144)* 
PRINT#1 , "FORM" ; a$ ; " ILBMBHHD" ; HKL$ ( 20 ) ; * 
PRINT#1 , MKI? ( 320 ) ; MKI$ (Lines ) ; HKL$ ( 0 ) ; * 
PRINT#1 , CHRS ( 5 ) ; HKI$ ( 0 ) ; CHR5 ( 0 ) ; * 
PRINTtl , MKI$ ( 0 ) ; CHR5 ( 10 ) r  CHRS ( 11 ) ! * 
PRINT#1 , MKI? ( 320 ) ; MKI$ ( 200 ) ; * 
PRINT#1,"CMAP":MKL$(96);* 
FOR  i%  =  0  TO  31* 

PRINT#l,cmap5(i%) t* 
NEXT* 

PRINTtl,"BODY";MKL$ (Lines  *  40  *  5);" 
FOR  1%  =  1  TO  Lines* 

FOR  p%  =  0  TO  4* 
FOR  j%  =  0  TO  39  STEP  4* 

PRINT#l,MKL$(PEEKL(pLaneSi{p%)  +  ]*));* 
NEXT  jl* 
pLane6.(p%)  =  pLaneS(p%)  +  40* 

NEXT  p%* 
NEXT  i%* 
CLOSE* 

PALETTE  0,l,l,liSOUND  440 , 20 , 200, 0 : PALETTE  0,0, 
0,0* 
RETURN* 


NoMoret* 

WINDOW  CLOSE  3 
1* 

MENU  RESET* 

MENU  OFF* 

END* 


WINDOW  CLOSE  4  :  SCREEN  CLOSE 


MICRO  WORLD  ELECTRONIX 


NEWSOO! 

512K  Computer  with  1  Disk  Drive," 

1080  Color  Monitor.  Includes 

Software 

AMIGA  500  CALL 

IMEG  RAM  EXP         CALL 

EXTERNAL  DRIVE     CALL 


AMIGA        2000 

NOW  SHIPPING!! 

Peripherals  now  in  stock: 

A2088D  Bridgecard 

A2090  HD  Controller 

A209220MBHDW/Cont 

A2052  2  MB  Board 

A2010  3.5"  Disk  Drive 

A2CX)2-23  Monitor 
AlOlO  External  Floppy 
CALL  FOR  NEW  3.5" 
EXTERNAL  DRIVE 


CBM  64  SOFTWARE 


CHAMPIONSHIP  BASEBAa 
GHOSTBUSTERS 


$12.95 
£12.95 
$12.S5 


EPSON 


LX800 

FX86E 

FX286E 

EX800 

EXIOOO 

LQ850 

LQIOSO 


$175.95 
SCALL 
$CALL 
SCALL 
$504.00 
$495.00 
$669.00 


PANASONIC 


10801  MODEL  II 

10911  MODEL  II 

10921 

1592 

1595 

3131 

3151 

4450  LASER 

1524  24  PIN 


$159.95 
SCALL 
$295.00 
$379.00 
$CALL 
$249.00 
$CALL 
$LOW 
$SAVE$ 


Electronic  Arts 

Bard's  Tale 
King's   Quest  I,  II,  III 
Space  Quest 
Leisure  Suit  Lany 
Marble  Madness 
Deluxe  Paint  II 
Deluxe  Print 
Deluxe  Music 
Deluxe  Video 
Ferrari  Formula   I 
Earl  Weaver  Baseball 
Gridiron! 
Chessmaster  2000 
Malhtalk 
Empire 


Microillusions 

Faery  Tale  Adventure 


S31.95 


AMIGA   SOFTWARE 
Mindscape 


Dejavu 

Brattacus 

Defender  of  Crown 

SDl 

Sinbad 

Kinj  of  Chicago 

Uninvited 

SAT  Prep. 

Microdeal 

GoldRunncr 
Gamestar 

BasebalU 

Football 

Graphics 

Sculpt  3D 

Aegis  Animator 
Aegis  Draw  Plus 


S31.95 

S31.9S 
$31.95 
$31.95 
$31.95 
$31.95 
|24.95 
$39.95 


$26.95 


S25.9S 
S25.95 


$64.95 

$84.95 
$159.00 


NEW  LOW  SPEED 

OSCILLOSCOPE  FOR 

IBM  OR  64 


UP  TO  15  CHANNELS 
100  US  SAMPLING 

PLUGS  mTO  YOUR 
CBM&4  0RIBU 

DISPLAYS  VOLTAGE 

WAVE  FORMS  WITH 
B  BIT  RESOLUTION 


MODEL  MW312 
FORC64 

MODEL  MW212 
FOR  PC 


$295.00 
$360.00 


CALL  FOR  C64 

SOFTWARE 


C64  &  128  ACCESSORIES 

MW-350  Parallel  Printer  Interface 
2K  BUFFER  $49.95 

lOK  BUFFER  $59.95 

C64  Power  Supplies 
Repairable  $42.95 

Non-  Repairable       $29.95 

MW-611  Universal  1/0  A  to  D  converter 


16  Analog  inputs 

16  discrete  outputs 

1  Analog  output 

MW-232  C64/128  RS232  Serial  Interface 
MW.401  40/80  Column  Cable  forC128 


$225.00 


5.00 
29.95 


SALES:  1-800-288-8088  TECH  SUPPORT:  (303)  988-5907         ,    . 
Manufacturer's  Warranty  Honored.  All  Prices  Subject  to  Change  Without  Notice. 
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Catalog  To  Text  File 


Apple  11  users  can  turn  disk  directories 
into  text  files  with  this  BASIC  program. 
Saved  as  text,  disk  catalogs  can  be 
edited,  and  then  printed  with  a  word 
processor  or  your  own  BASIC  program. 
Works  with  DOS  3.3  disks  only. 


Unlike  many  computers,  the  Apple 
II  doesn't  provide  a  way  to  make 
text  files  from  disk  catalogs.  "Cata- 
log to  Text  File"  is  a  BASIC  program 
that  solves  this  problem.  When  run, 
Catalog  to  Text  File  reads  in  a  disk's 
directory  and  creates  a  text  file  that 
you  can  print  and/or  edit  using  al- 
most any  word  processor. 

By  modifying  the  program  to 
suit  your  needs.  Catalog  to  Text  File 
can  be  used  to  read  the  number  of 
free  sectors  on  a  disk,  to  count  the 
number  of  files  on  a  particular  vol- 
ume, or  to  print  out  selected  file- 
names in  an  easy-to-read  format. 
This  program  works  with  unpro- 
tected DOS  3.3  disks  only. 

Getting  Started 

To  begin,  type  in  Programs  1  and  2 
using  the  "Automatic  Proofreader" 
program  found  elsewhere  in  this 
issue.  When  you're  done,  be  sure  to 
save  a  copy  of  each  program. 

Next,  load  and  run  Program  1. 
Program  1  writes  a  short  machine 
language  file  to  disk.  This  file  is 
BLOADed  into  memory  by  Pro- 
gram 2,  so  it  is  important  that  the 
machine  language  file  and  Program 
2  are  saved  to  the  same  disk, 

Creating  A  Text  File 

Load  and  run  Program  2,  The  pro- 
gram prompts  you  for  the  volume 


Jason  Fuller 


number  (or  name)  of  a  disk.  Enter 
anything  you  wish,  including  let- 
ters. The  characters  that  you  enter 
become  part  of  the  filename  used  to 
save  the  disk's  catalog. 

When  the  computer  prompts 
you,  insert  the  disk  that  you  wish  to 
catalog  and  press  Return.  After  the 
computer  has  read  the  catalog  into 
memory,  you  are  asked  to  insert  the 
destination  disk.  Insert  a  disk  and 
press  Return.  The  catalog  is  written 
to  disk  with  the  filename  CAT- VOL 
followed  by  the  volume  name  that 
you  entered  earlier. 

Using  Tlie  Text  File 

The  text  file  created  by  this  pro- 
gram can  be  loaded  by  most  word 
processors.  From  there  you  may 
edit  it,  reformat  it,  and  print  it  out. 
When  viewed,  the  catalog  text  file 
appears  in  the  following  format: 

Vbluirie  number,  as  entered  by  the  user 
Total  number  of  used  sectors 
Total  number  of  files  on  the  disk 
Filenames 


Filenames 

The  word  'END* 

It  is  possible  to  use  this  text  file 
from  within  your  own  BASIC  pro- 
grams. To  read  the  file,  use  the 
following  subroutine: 

58  1000  TEXT  :  HOME 

BF  1010  INPUT  "WHAT  VOLUME  NUMBE 

R  TQ  LOAD  ";VDL» 
It   1020  D*  =  CHR*  (4);  REM  CTRL- 

D 
IC  1030  PRINT  D»;  "OPEN  CflT-VOL  " 

;VOL* 
tl  1040  PRINT  D»;  "RERD  CAT- VOL  " 

;VOL* 
77  1050  INPUT  VOLS 
5J  1060  INPUT  USED 
*i    1070  INPUT  NUM 


II  1080  FDR  X  =  1  TO  NUM 

2E  1090  INPUT  NAME»(X) 

7C  1100  NEXT  X 

n  1110  PRINT  D* 5 "CLOSE  CAT-VDL 

" ; VOL* 
DB  1120  RETURN 

If  you  would  like  see  the  cata- 
log text  file  sent  to  the  screen,  add 
these  lines  to  the  subroutine  above, 

CF  100  DIM  NAME*  (75):  GD5UB  1000 
S2  110  FOR  X  =  1  TO  NUM 
17  120  PRINT  NAME»(X) 
iE  130  NEXT  X 
?i  140  END 

Catalog  To  Text  File 

For  instmcfions  on  entering  these  programs, 
pleas©  refer  to  "COMPUTE! 's  Guide  to  Typing 
In  Programs"  elsewhere  in  ttiis  issue. 

Program  1 :  ML  File  Creator 

5F  10  T  =  0 

52  20  D«  =  CHR*  (4) 

21  30  FOR  X  =  1  TO  32 

75  40  READ  D 

«  S0  T  =  T  +  D 

6C  60  POKE  767  +  X,D 

El  70  NEXT  X 

8E  B0  IF  T  <  >  1717  THEN  PRINT  " 

ERROR  IN  DATA  STATEMENTS. 

PLEASE  CHECK.":  END 
ft?  90  PRINT  D*; "BSAVE  lOB.A  768, 

L  53" 
99  100  END 
2!  200  DATA  169,3,160,16,32,217, 

3,96,0,0 
?C  210  DATA  0,0,0,0,0,0,1,96,1,0 

,17,15 
CB  220  DATA  48,3,0,32,0,0,1,0,25 

4,96,1 
54  230  DATA  0,0,0,0,0,0,0,0 
Fl  240  DATA  0,0,0,0,0,0,0,0,1,23 
9,216 

Program  2:  Main  Program 

DB  10  REM  COPYRIGHT  1988  COMPUTE 

:  PUBLICATIONS,  INC. 
49  20  REM  ALL  RIGHTS  RESERVED. 
C7  100  DNERR  GOTO  1600 
»  105  HIMEM:  S192 
5A  110  D«  =  CHR*  (4} 
58  120  TEXT  :  HOME 
Bl  130  IF  PEEK  (768)  =  169  THEN 
150 
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64    140 
FF    150 


4A    160 


72 

170 

11 

1B0 

77 

190 

11 

Z00 

DE 

210 

a 

220 

M 

230 

a  240 

U  250 

3!  260 
F4  270 

DS  280 
Di  290 

u  zest 

Di  310 

21  320 

?J  330 
«  340 


Dl 

350 

C? 

400 

ID 

410 

14 

420 

PRINT  D$;"BLOAD  lOB.Dl" 
INVERSE  !  FOR  X  =  1  TO  6: 
FOR  Y  =  1  TO  40:  PRINT  " 

"; :  NEXT  :  NEXT 
A»  =  "PRINT  CATALOB  TO  ft 
TEXT  FILE":  QQSUB  1200 
VTftB  2:  HTAB  HT:  PRINT  A» 
fi*  =  "COPYRIGHT  '88  COMPU 
TES":  BOSUB  1200:  INVERSE 
VTAB  4:  HTAB  HT:  PRINT  AS 
POKE  34,8 

DIM  FE*(100),NB»(35) 
NORMAL 

HOME  :  PRINT  "WHAT  IS  VOL 
UME  NUMBER  OF  THE  DISK  YD 
U":  PRINT  "WANT  CATALOGUE 
D?"j 

INPUT  "";VOL» 
IF  LEN  (VDL«)  >  24  THEN  2 
30 

INVERSE 
HOME  :  PRINT  "DISK  VOLUME 

" ; VOL* 
NORMAL 

PRINT  !  PRINT  :  PRINT  :  P 
RINT  "IS  THIS  CORRECT?" i 
GET  S« 

IF  S*  =  "Y"  OR  B»  =  "y"  T 
HEN  340 

IF  S*  =  "N"  OR  B»  =  "n"  T 
HEN  230 
GOTO  300 

HOME  :  PRINT  "PLEASE  INSE 
RT"!  PRINT  !  PRINT  "DISK 
VOLUME  ";VOL»:  PRINT  :  PR 
INT  "AND  PRESS  RETURN."; 
QOSUB  1400 

A*  =  "PLEASE  WAIT.  READIN 
B  CATALOB  TO  MEMORY":  GDS 
UB  1200 

HOME  s  HTAB  HT:  PRINT  A» 
SS  =  0:SE  =  15! TR  =  17:BU 

-  8192: DP  '  1:  GOSUB  190 


El  430 


9E 

440 

ei 

450 

44 

460 

Si 

470 

CD 

480 

li  490 

74  500 
fS  S10 


3D  520 


STA  =  12046: EN  =  12256s LL 
>  0:KK  =  0:USED  <°  0:NB* 

at  "  "  .  FE$  s  "  " 

FOR  X  =  STA  TO  EN  STEP  35 
IF  PEEK  (X)  =  0  THEN  KK  » 
LLi  SOTO  700:  REM   UNUSE 
D  FILE 

IF  PEEK  (X  ~  3)  =  255  THE 
N  560:  REM   DELETED  FILE 
E  =  PEEK  (X  -  Us  BOSUB  1 
000!  REM   TYPE 
LY  -  PEEK  (X  +  30):  GDSUB 
1300:FE»(LL)  =  FE»(LL)  + 
FIN»:FE»(LL)  "  FE»<LL)  + 
"-":  REM   LENQTH  OF  FILE 
IN  SECTORS 
USED  1=  USED  +  LY:  REM   CD 
UNTER  FOR  SECTORS  USED 
m*   =    "" 

FOR  C  =  X  TO  X  +  29:  IF  P 
EEK  (C)  >  0  AND  PEEK  (C) 
<  =  31  OR  PEEK  (C)  >  127 
AND  PEEK  (C)  <  =  159  THEN 
NB»  =  NB«  +  "  ■*!  BOTO  53 
0 

CHR«  (  PEEK  ( 


NB« 


E4 

530 

kl 

540 

77 

550 

75 

560 

4? 

570 

24 

580 

BF 

700 

HI 

710 

DS 

720 

NBS 

O) 

NEXT  C 

FE»(LL)  =  FEStLL)  +  NB« 

LL  =  LL  +  1 

NEXT  X 

STA  =  EN  -  466! EN  =  STA  + 

210 
GOTO  440 

HOME  :  PRINT  "PLEASE  INSE 
RT  A  DISK  WITH  WHICH" 
PRINT  "YOU  WANT  TO  STORE 
THE  TEXT  FILE  AND" 
PRINT  "PRESS  RETURN"; 


Dl  730  GDSUB  1400 

EF  740  PRINT  :  PRINT  D» 

41  750  PRINT  D*;"OPEN  CAT-VOL  "; 

VOL* 
IS  760  PRINT  D»;  "WRITE  CAT-VOL  " 

;VDL» 
CJ  770  PRINT  VDL» 
Jl  7B0  PRINT  USED 
5C  790  PRINT  KK 
H   800  FOR  X  =  0  TO  (LL  -  1 ) :  PR 

INT  FE»(X):  NEXT 
89  810  PRINT  "»END»" 
12  820  PRINT  D»S  "CLOSE  CAT- VOL  " 

;VOL» 
2B  830  TEXT  s  HOME  :  PRINT  "DONE 

":  END 
ES  99Q  ' 

n   999  REM   TYPE  OF  FILE 
B5  1000  IF  E  =  0  DR  E  =  128  THEN 
FE»(LL)  =  "T 
80 
D9  1010  IF  E  =  1  OR  E  = 
FE»(LL)  =  "I-": 
80 
91  1020  IF  E  =  2  OR  E  = 
FE«iLL)  =  "A-": 
B0 
C«  1030  IF  E  =  4  OR  E  = 
FE»<LL)  =  "B-"i 
B0 
EC  1040  IF  E  =  a  OR  E  = 
FE»«LL)  =  "S-"s 
80 
aC  1050  IF  E  =  10  OR  E  = 
N  FE»<LL)  =  "R-": 
080 
D5  1060  IF  E  =  20  OR  E  = 
N  FE»(LL)  -  "A1-" 
1080 
9F  1070  IF  E  =  40  OR  E  " 
N  FE*<LL)  -  "B1-" 
1080 
Fi  1080  RETURN 
iD  1198  : 


GOTO  10 

129  THEN 
GOTO  10 

130  THEN 
GOTO  10 

132  THEN 
BOTO  10 

136  THEN 
SOTO  10 

=  144  THE 
GOTO  1 

160  THE 
GOTO 

192  THE 
GOTO 


1199  REM 

1200  HT  ■■ 
2)  +  1 

1210  NORMAL 
1220  RETURN 


CENTER    TEXT 

( (40    -    LEN     (A$)>     / 


41 

DD 

4F   1298    : 

Cft    1299   REM 

3C    1300    GB« 


LENGTH  OF  FILE 
STRt  (LY) 
n    1310  IF  LEN  (GG*)  =  1  THEN  FI 
N»  =  "00"  +  STR*  (LY):  R 
ETURN 
1320  IF  LEN  (GG*)  =  2  THEN  FI 


+  STR*  (LY) :  RE 


CC 

N*  =  "0' 

TURN 
£J  1330  RETURN 
71  1398  : 

IS  1399  REM   BET  RETURN 
!C  1400  GET  S* 
28  1410  IF  S»  <  >  CHRS  C13)  THEN 

1400 
El  1420  RETURN 
73  1498  : 

(9  1499  REM   ACCESS  DISK 
84  1500  FDR  SA  =  SS  TO  SE 
99  1510  POKE  788,  TR:  POKE  789,  SA 

:  POKE  796, OP 
39  1520  HB  =  INT  (BU  /  256) :  LB  = 

BU  -  (HB  »  256) 
84  1530  POKE  792,  LB:  POKE  793,  HB 
F7  1540  CALL  768:  BU  =  BU  +  256: 

NEXT  SA 
IF  1550  RETURN 
73  1598  : 

El  1599  REM   ERROR  ROUTINE 
DC  1600  EC  ■=  PEEK  (222) 
7D  1610  LN  =  PEEK  (218)  +  PEEK  ( 

219)  »  256 
AD  1620  POKE  216,0 


«5  1630  PRINT  D* 


=  1  TO  7i  PRINT  CH 

NEXT 
=  4  THEN  1720 
=  6  THEN  1740 
=  9  THEN  1760 
=  8  THEN  1780 
"ERROR  #:";EC 
"IN  LINE  #; ";LN 


88  1640  FOR  X 
R*  (7>! 

97  1650  IF  EC 
SI  1660  IF  EC 
*D  1670  IF  EC 
81  1680  IF  EC 

98  1690  PRINT 
27  1700  PRINT 
Al  1710  STOP 

5D  1720  INVERSE  :  PRINT  "REMOVE 

WRITE-PROTECT  TAB."!  NOR 

MAL 
74  1730  GOTO  1B00 
IF  1740  INVERSE  :  PRINT  "FILE  NO 

T  FOUND. ":  NORMAL 
7C  1750  BOTO  1800 
«  1760  INVERSE  :  PRINT  "THE  DIS 

K  IS  FULL.  '*!  NORMAL 
84  1770  BOTO  1800 
E8  1780  INVERSE  :  PRINT  "I/O  ERR 

OR  WITH  CURRENT  DI3K."s 

NORMAL 
8C  1790  GOTO  1800 
66  1800  INVERSE  :  PRINT  "ERROR  I 

N  LINE  ";LN 
li  1B10  PRINT  :  PRINT  "PLEASE  IN 

SERT  THE  CATALOB  UTILITY 
DISK  AND  PRESS  RETURN." 


S3  1B20  GOSUB  1400 
96  1830  CLEAR  :  TEXT 
N 


HOME    :    RU 


89* 

(For  PC-AT) 


•EffOf  fn» 

•Top  Ouillly 

LlldlnM  Warranty 


•Sturdy  Blank  PVC  Jacket  'With  ID  Label 

•Wllh  Write  Protect  Tabs  ♦With  Envelopes 

•In  Factory  Sealed  Poly  Packs 

SOLD  IN  LOTS  OF  100 


3V  DISKETTES 

(UNBRANDED) 


99(1; 


SALE  9U^  Hch 

SOtOINLOTSDFM 


SiH:  M.OO,  FIRST  100  OR  FEWER  DISKS;  W.OO, 
EACH  SUCCEEDING  100  OR  FEWER  DISKETTES, 
MINIMUM  ORDER:  SZ5.00.  S&H:  Conllnental  USA. 
Foreign  Orders,  APO/FPO,  please  call.  Ml  lesldents 
add  4%  tax.  C.O.D.  add  $4.00:  payment  witti  cash, 
certified  check  or  money  order.  Prices  subject  to 
change.  Hours:  8:30  AM  — 7:00  PM  ET. 


Computtr  Supplln  (t  Budgat  Fritndlf  PrIeatI 
Call  for  FREE  CATALOa 
FOREIGN  INQWRtES  WELCOME! 
Precision  Data  ProducU" 

P.O.  BiJ<  S367.  Grand  RipiOs.  HI  4M1B  g 
(6161  *5!-MS7  •  FAX:  |616|  452.4914  ^gj 
Michigan  1.800.6322468  j_ 

OuIsldBMIcniganl.SDO.2Sa.D02S  B 


llllH 
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COMPUTEI's  Guide 

To  Typing  In  Programs 


Computers  are  precise — type  the  pro- 
gram exactly  as  listed,  including  neces- 
sary punctuation  and  symbols,  except 
for  special  characters  noted  below.  We 
have  provided  a  special  listing  conven- 
tion as  well  as  a  set  of  programs  to 
check  your  typing — "The  Automatic 
Proofreader." 

Programs  for  the  IBM  and  those  in 
ST  BASIC  for  Atari  ST  models  should 
be  typed  exactly  as  listed;  no  special 
characters  are  used.  Programs  for  Com- 
modore, Apple,  and  Atari  400/800/ 
XL/XE  computers  may  contain  some 
hard-to-read  special  characters,  so  we 
have  a  listing  system  that  indicates 
these  control  characters.  You  will  find 
these  characters  in  curly  braces;  do  not 
type  the  braces.  For  example,  {CLEAR} 
or  {CLR}  instructs  you  to  type  the  char- 
acter which  dears  the  screen  on  the 
Atari  or  Commodore  machines,  A  com- 
plete list  of  these  symbols  is  shown  in 
the  tables  below.  For  Commodore,  Ap- 
ple, and  Atari,  a  single  symbol  by  itself 
within  curly  braces  is  a  control  key  or 
graphics  key.  If  you  see  {A},  hold  down 
the  CONTROL  key  and  press  A.  This 
will  produce  a  reverse  video  character 
on  the  Commodore  (in  quote  mode),  a 
graphics  character  on  the  Atari,  and  an 
invisible  control  character  on  the  Apple. 

For  Commodore  computers,  graph- 
ics characters  entered  with  the  Commo- 
dore logo  key  are  enclosed  in  a  special 
bracket:  [<A>].  In  this  case,  you  would 
hold  down  the  Commodore  logo  key  as 
you  type  A.  Our  Commodore  listings 
are  in  uppercase,  so  shifted  symbols  are 
underlined.  A  graphics  heart  symbol 
(SHIFT -S)  would  be  listed  as  S.  One 
exception  is  {SHIFT-SPACE},  When 
you  see  this,  hold  down  SHIFT  and 
press  the  space  bar.  If  a  number  pre- 
cedes a  symbol,  repeat  the  character  the 
indicated  number  of  times.  For  example, 
{5  RIGHT},  {6  S},  and  [<a  Q>], 
mean,  respectively,  that  you  should  en- 
ter five  cursor  rights,  six  shifted  S's,  and 
eight  Commodore-Q's.  On  the  Atari, 
inverse  characters  (white  on  black) 
should  be  entered  with  the  inverse  vid- 


Atari  400/800/XL/XE 


When  you  see 

<CLEAR> 
<UP> 

<:down> 

CLEFT} 

<:riqht> 

CBACK  SJ 
CDELETEJ 
tINSERT> 
CDEL  LIhE> 
{INS  LINE} 
fTABJ 
tCLR  TAB> 
CSET  TAB> 
{BELL} 
{ESC} 


Type 


ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 


SHIFT  < 
CTRL  - 
CTRL  =« 
CTRL  + 
CTRL  * 
DELETE 
CTRL  DELETE 
CTRL  INSERT 
SHIFT  DELETE 
SHIFT  INSERT 
TAB 

CTRL  TAB 
SHIFT  TAB 
CTRL  2 
ESC 


See 

K 

t 

-* 

4 
U 

u 
□ 

B 
□ 


CI  ear  Screen 
Cursor  Up 
Cursor  DoMn 
Cursor  Left 
Cursor  Right 
Backspace 
Delete  character 
Insert  character 
Delete  line 
Insert  line 
TAB  key 
Clear  tab 
Set  tab  stop 
Ring  buzzer 
ESCape  key 


Commodore  PET/CBM/VIC/64/128/16/+4 


When  Vbu 
Read; 

(CLR) 

{HOME} 

(UPJ 

{DOWN) 

{LEFT! 

(RIGHT) 

(RVS! 

(OFF) 

{BLK} 

jWHT) 

{RED} 

{CYNj 

{PUR} 

{grn; 

{BLU} 

(YEL) 


Press: 


SHIFr 

CLRJHOME 

CLR/HOME 

SHIFT 

t  CRSR  I 

t  CRSR  I 

SHIFT 


■H-  CRSR  — 


•-CRSR  — 


CTRL 


CTRL 

0 

CTRL 

1      1 

CTRL 

2 

CTRL 

3 

CTRL 

1      * 

See: 


[9 


m 


m 


CTHL 

5 

CTRL 

6 

CTRL 

7 

CTRL 

8 

ss 


When  Ybu 
Read: 

gi§ 

g33 

§71 
§8i 

(  Fl  ) 

(  F2  ) 
(  F3  1 

{  M  ) 

(  F5  } 

{  F6  1 

{  F7  } 

(  F8  ) 
4 


COMMODORE 


commodore]  |T 


CONfMODORE  I 


COMMODORE 


m 

I) 

commodore]  [T]  n 


m 


COMMODORE 


COMMODORE      S 


SHIFT 


f3 

SfflFT 

e 

fS 

SHIFT 

fS 
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Mon-Fri  9am-9pm  CSI 
Sal  11am-5pm 


^        SINCE  1982  ^—    ,  _ 


Mon-Fri  9am-9pm  CST 
Sal  11  am -5pm 


THE  HOME  COMPUTER  STORE  THAT'S  AS  CLOSE  AS  YOUR  TELEPHONE 


^^2g 


'zyyyyjryjiyyy: 


wmmm 


IL. 


<S>  ^\£Mt 


m  i*s.  ^  5X5-5 


NX-1000  PRINTER 

•144  CPS-Draft  .SOCPS-NLQ 

•NLQln10&12Pileh 

•6  Built-in  Fonts 

ONLY 

$165 

^iiilf»».h>»i»»y»»i»»ifrfrr 


an 


ZZ^^^^SSBtf 


mmm 


i«»«r»wi<  a 


Panasonic. 

Office  Automation^^^^jvfli 

1091i- II  PRINTER 

^^Nowat  192CPS 

ONLY 

$189 


hvMm  ArtotWw  HSii  —  27.tS 
MowHArtarWv  >..„....  2&.tS 

AnirvM .— .....  ZB.BS 

^(Jisn  ,^„H,.-,„™ , ItBS 

AfncFta J1.BS 

Adw  CamnjCiEn .....  1LB5 

QBSIdnin* 14lBS 

[UWiTftH .__...  3f.B£ 

PiTd^  ^0 1&.B6 

CHlbmla  QvTHi  .._..._.„.>.  3^B& 
CopyUPC .......  J?.I15 

CMS  30  M«o  Kt)  ,_....^.^^  :mb 

Ct«ltfflU«r»a  .„..H.B1 

CftrfOiYiftO»rF& .„ — ,».» 

Das  EU]t  Acsk^ing  I!,P  —  50.65 
DitwriHrotTW  CfHin  ,.^..  34.G5 
Dnroirv  .„. — „... — , —  2SlB5 

&a  OuB ..— — .  '*•» 

Otf  ■!  Sarifin  „■„..,...,.,.  CAU. 

DOS  FW ..  »K 

EbAWiww -^- 36.05 

Orvi}  awn  QM^ 30.66 

0^lHj»  „,.™. _  M-K 

htodHi  _,_,„_____.  2*.K 

tUWiTPlOH  ^^Mi,^.. SlftS 

Kmntfliia . . ..».  31.H 

Ixdofimwf 21.65 

UvUAMddneii ^....-.^.  SS.fi'S 

UwiilA _,„^, »« 

UnnPiTH .....  K.85 

Uonsptfy ?tK 

a.3  US  DOS  CW  Dnic IH.B5 

h^  pHt;  Man 14.S5 

MullcCoritrjclani IQ.G5 

Qv  anOrw  „ llBS 

Of! . .„_.!«.» 

PacUmn USi 

P.C.  QL*rtrt 58.B 

Prtal  WU JV65 

PuUifl  II ......-.„- »B5 

p*rtl  Snep  ^-.- X-BS 

P5J  &Tnd^  Ca Z4.B6 

SowT  Clin  efGsM ia.» 

Sfk:!  PoTW  Pimna  InrtillU.eS 

S-jfllflW 33.05 

S!jtfl«ll  .,...^ M« 

Sk-DUtM-.-. Kas 

SitfCic^FaozKl H.» 

Svpv  E)4uav  Dah  „.. 10.» 

TH)T*imV*ejltng ZS,SS 

TiillD/Irt ..".-^^p. — .  !<.flS 

TliiM  Bh!c  ™™^«„,- ^  aH.9S 

Up  Pvdd^ .^...H.  1B.Q5 

Utmi  17  B  3 C«i. 

U«««n4U  . 47.tS 

WharalnnU^AH 

Wrwfii  In  M  WwU  II 

ClV>^/)  S*ndi«gB H.B5 

Wiy«.  lei/  a*f  i„„.^-.,_  M.as 

wiMtj  cjui  l  b  ..^.« —  ^a& 

lilEjpMtan. ..„...-. —  311B5 


AmigA  ^\  Eju»ni«n i  SO-ii^ 

H-65 

?5.« 

B»ttiTB3a M.ftS 

Bffyand  2orh ..  Sa.flS 

Dutnan  Cvd  Matar U.ftS 

ChoutreiBrZDOG ™._  M.M 

DvDaw „ M.BS 

Deri  CsaSfl J^.tS 

Dnltndii  ol  r«  Cranrn S.BS 

Difuilt  Mulic  I  J) . — .,.»^-..  ft4.BS 
D#ul«  Paini  3  ,„HH,.„*~^.^ —  W.B5 

D«i^a  W>rfi2  ..^. 51. BS' 

[>*<td.«  Prpi»ic3qra 174.B& 

Mmt  VOW  !.? — W.B5 

MitftWOP  .„.-.-. ,.-.,EB.B5 

DynimlcCAD aao.BS 

Ean  Vi^w  QuoOa:i 3S.fl5 

Drprt  ^^...^........ _  31BS 

FtO"  TM  ita-WHJ*  ". 31.B5 

Ftflw  Fvniii  1 .... ™..„™.4  3195 

Fiigtit^kTiJauvit .  3ai& 

C/'Li'oabdl ?e.li5 

Q/*llp«i  ... _-™ **.t5 

Quiki  cl  Thtom Ti.SS 

OjnEWiMrRsUf KI5 

InODpr^unf  __.„ . 33.tS 

iruinv  Figrrt  „..„^..^„.^-p,  ?5,fi5 

Imo  rv  Eftl^fl^  Uul . _,..  2Jie5 

IrwiltffH  .,^.^-.- 31B5 

KVU3  Ra  Z  ^^x^ n,^  2*.B5 

KVDpgi^t^ ««i„.™^  SftW 

Kng  c(  QhlatO« .. .  33.K 

Kirqi  Qusil  1,2  erl 33.15 

KiV{]hlO«  ...........„.»».».,.  ^I.B^ 

LfUufl  Sua  L«ry  ,.„.>».«„,.  33.BS 

LPQ  vrauf .....«....»<».  7g.B) 

H*M  UAOntlt  .^,.«...:»^.»S  B5 

Uavli  avKph  lt^(^ ->  n.K 

fctaan  IS .57.95 

UfXlVAliV  ,„«*P., _..„>4,Bi5 

1L^|1CSK,4«  ,- 32.  as 

Oilini . 4Z.B5 

O-janUB .- .^  D.BS 

?ma5flasc  .. 48,65 

Pa«m ......  n.BS 

PntntnW  1.  !  «  3  „.,.-„.....  ZIBS 

pmiJUaiw  Pkii 3VBS 

J>uUihw lllBS 

riMOMn'  EunF*  , ..■■.^  i&BS 

acnbcia U.BS 

aDJ.  „.._..^ 3Z.B5 

Shangha !5fl5 

SnBdswgsB 32-K 

S^nSflfWCfl  ^H^.^— .- — KftS 

fRaio^tW ..-i..-^.^.  ■■>■■■  ?3.ftS 

Supvbne  J^MM H.K 

TajlDrMB .„„.77.trS 

Tamor  {"odi ...........  S^B^ 

Ivro  onlwoOamaCiHlt H.BS 

LMFii  IV 3«.8i 

\AauL^to9U ._ 71. B& 

Vfj^trla  Mitgi ....  0B.B5 

U.B5 


NX-1000  RAINBOW 

NEW  LOW  COST 
COLOR  PRINTER 

ONLY 

$239 

^»»»»»»»»»»»»»i>m)»}. 


PC  COMPATIBLE 


VENDEX  PC 

S12K,8MHZ,2DD,7Slol 
SeriiJ,  Parallel,  Mouse  & 

Game  Ports 

$1000  or  Software  incl. 

MS  DOS  &  BASIC 

Mono  $829,00 

Color  $999.00 


Packard  Belf 

PC  XT  with  Color  $879 

with  Mono  $698 

8MHZ,  640K,  HERC/CGA, 

Sef/Per,  Clock/Calendar, 

360K  DD.  AT  Keyboard 

Do*  3.2  &  QW  Bsiic.Smail 

Foot  Print 


We  Carry  the  Complele  BLUE  CHIP  PC  LINE 
CALL  for  /our  Configuration 


Panasonic. 


1080i- II  PRINTER 

^Q>Nowat144CPS 

ONLY 

$169 


pww 


commodore 


1K1C  Disk  Drive      WCCcmpuW  faCKMonilo 

1S71  Disk  Drive       0-128  Canputer         lOMMotJia 
15B1C  Di*  Dviva      C-123  D  CompuBr 
CALL  FORINDJVIOUAL  &  SUPER  PACKAGE  PRICES 


1 750  HAM  EipandB    Avaie*  ISM  HO  Modem     1351  Mouse 
17«  RAM  Eipandet    Avatex  2400  HC  Molem    I  CON  Tidier 

CALL  FOR  CURRENT  PRICE 


AMIGA  s^^ 

COMPin'ER  SYSTEM 

CALL  FOR  CURREm"  PRICES  &  AVAIU^ILmf 

AATARI' 

520  ST  &  1040  ST 

SYSTEM  PACKAGES 
CALL  FOR  LATEST  PRICES 


AOGCLI  EUM  _-- . 

BiB.cCEiT.piv  ize iaB5 

BaipnaZare 21.BS 

Cu  PBi<  l»  .__. 3a.B5 

CnnnPnOJB  .,.«.h„..„-.-.^B&BS 

CDbul  \1&. ...... 30.65 

QaUiniBnagei1?S „..., U.g$ 

P'HtSriBn* , .._..  U.BS 

fQ'nn-Aiar  IZB  ..... „,  3G-9S 

Qapi  l?a ..^„.^.,.,..,.  «.« 

GaaCbClId ,.,w— . ,44.95 

□ao  Doe  1  j& 44.» 

Gto  Fx  iJfl 44.« 

fioeWr.B  !Sa  „ **.M 

U«n!!4 ...M.B5 

Mnifi  la  „...._„ .. fiS.85 

Pa^HrafilVlid  . CALL 

Paws/  12fl  ,.,.^.„„™™^„,  A?.B5 

PBCMtF.«f3  „„^ .„3tB5 

PMMt  PiaiYwr  2 SG.a5 

Podwl  WifcrJ 36.  fc 

SpaM  T«m  \2B 15.65 

Sup4rEWH  120  __.......-.».-»..  57.B5 

Supd^  C  Civn^dtw  .^.., ^  30.  B5 

aj^w  PHl/tn  ...... ,.,...^..  5B.B1 

Sue*  PwtB  1»  ^.„..„,^  M.BS 

SupafiO-ipi  la  .. ..... iS.85 

Swifta-c  IJO «.Bi 

Sylvto  PnrWr  \!a «.B5 

TTinlh- ~.  2S.BS 

WonftriTJa'  I2fl  „ - *7.BS 

ViawflM -. S*.BS 


AjirsM.. 

Ausouoi  ... 
BarSl  IM ... 
Bard  I  Tals  I 


..3;.B& 

-1B.B5 
.  S2.B5 


Bop-N-WraiDD 

CarSlcaB  UaH>  ..... . 

CarstcaDUMwUbl'l 

OpArt  1  *  S 'fl.K 

CLp  Art  2 _.. ..___.  JS.65 

Daitmyo'  ....4_......iH,»...^^..  9S.SSi 

F-lSSl^MEigl*  .,.»»,^_  3?.G5 

figiiTtMfln,.^„...H.., , m!IJ5 

atpfta  U»  l.*s»S  ....^ ~.  **J5 

tUMDai t\A 

in.irva,rif ^fl.B& 

Joi.„. 11  Xi 

MawvBom ..^ 37JIIS 

Oft  B^ann  „.™.-~ ™.  M.6S 

Pfcrn  ..„„.^,-^....*.,.^Jfl.B3 

P«C»11  .^., .. 25.85 

Phfer^-jait  1.Z  w3  ..^»„......  !^95 

Pn^Snop llJti 

aiBniSwUB  2ZJ5 

3w7>aar  ^-.. ?aJ5 

StaM  Sporq  Bimobi 75.95 

Srat:  Spora  BuHlbtfl 2&.9$ 

T^  TMmWniSnff  ..„..._...  «.95 
Wne*9  Ift  M  USA  It 
CAim«\ Sft^ai«g«  ». — — ^,.i?fl.S5 

CKTnar^SHVMga ..  25JS 


ha  al  Ami  . 

ArvnalsnSaun Sfl.BS 

AartwwPlui . 3B.B5 

AlJ»Du*XE«.  .--......^ M.95 

Bg^N  WflftM ,„..,.«„  1B.B5 

CnAHTiwiar  ?DQI}  „ 25.B5 

FlSSTha  Eaa»  ..„..^„..—  K.B5 

OAf  6f  TitA^*  -I...,,. —  I?J5 

HwdbW  . ^..-. tS.B5 

Jaw«ii  DrDaftnau  ...^.p^,...^.-  17.35 
L«■^un>oa>d  ,„,^,^,„,^.,,,^-,  94.65 
LB&tnii  GooOQ  11 ..............  Z7.B5 

UaMUa«ar..-»— IQJS 

Ujtx:  Sula  ..>- »J5 

Paga  Onqnv !fl.lS 

PawrvKEifJO. i4.aS 

PflfitSnop JBJ5 

P.S.  Carnparttfi  . ,^.>..«.f22JS 

PS.  IntM^taaa .  'ItS 

Racng  Dntrucman —  lO.fiS 

A^^iB/  Swnp ta.B5 

SwiiSwm  «.^+^ a.Ba 

SliicnnOfaarni 17.BS 

Sf^Hv  *0 . .......,.«™.  W-B9 

3ira*c —^<  H" 

SitAm  ,„_ ....  »J5 

TfipOurrar _— —  IGJS 

Unimftl) 31  Ji 

UnimillV„..^H„^™ 3185 

Vdaa  Vagal  XEiOO 20.9^ 

Wurdi  Cfwn. ™..™.  27.85 

ZvkTiJagy . 30^5 


Contput(/ihUUtf. 

'Cjinbum&t  J^/erttonici 

P.O  .  BOX  17882,  MILWAUKEE,  Wl  53217 

ORDER  LINES  OPEN 

Mon-Fri  3ain-9pm  CST  Sal  1 1am-5pm 

To  Order  Call  Toll  Free 

800-558-0003 

For  Technical  info,  Order  Inquiries,  or  for  Wise.  Orders 

__       414-357-8181      _ 


->  (ANSERBACK=COMPUTMILWUO)  i 

No  surchage  for  Mastercard  or  Visa 


AMPlFintl  t..,-.-^ — .— 

■HI 

MGiMnr'ofl  **--—.- 

,..„  lais 

Ai*tO  Dua . . .  _„...«.+.  ™ 

.«..  BA5 

fmiratJtOM ....__ 

._«  a*  J? 

BdancBDfPsw*' 

-.._».fl5 

BartrtTtiA  „.. _„ 

...„33-B5 

BEJSeipm 

St  J5 

CdrttashUwr — ...„ 

....-2S.BS 

Chaivnalaf  ?am 

.....SiJS 

CacEuy  Aocoixfing  ^0 

E4  JS 

DkPbjtbII 

.....UBS 

Darin  CatM.,^^,,,,,..^. 

-,-,,  B1.85 

4S.95 

DaiVKHrglnaCroifn  .. 

__..  32  J  5 

D*W*Prtna, 

34  J5 

DoguQia  ,.,„ 

.....  52 .i5 

DsrtCan*-.^^^ — 

.,...n.B5 

Euy&ar 

4i.B5 

EZTraca^-, ^,«.^ 

36.B5 

F45SFiuE«g« 

I/.BS 

FiasFi 

IBJS 

FlIflhlSmuiiB^  .,....,,.. 

.-.,».85 

™...  48  J  5 

ff  A&ynptPion  .-..,™„ 

^...  K  J4 

.....  84  J5 

GfAVoclar 

3fi  JS 

HAMun  ... 

„_  a^fls 

htotwEatfa-fcNait ._ 

__..  2SJS 

...  siis 

lUalmulDt  EUla 

_._.-  !7J5 

UulvMi^a 

a  Mi 

UarviaUatlnau  ._>... 

H  t6 

—  U4.BS 

UaaBii4ST^.^.^^... 

.,_M.a5 

P*narST 

4fl.BS 

-     HAS 

..  ttJiS 

.-  M.B5 

P^wiui*  l.7gi3  ...»   . 

„-..H.B5 

PflMtWiard  „.,„,„... 

^^™  21.86 

24.85 

PijOEaHing  PtrTm 

64  J  5 

S«i^ 

2B.95 

. 25.85 

Sp^IarDaa 

31.95 

STMDiropSor 

.. 4B.9S 

SWTdog  ..^.^_.-..„™, 

™.„-  24  JS 

SwCtaK SI  ............ 

4e.95 

I4ft.fl5 

T»riip(KIl  ..,„H,.,.<,„.„.. 

„..„-  J4.BS 

m^M/.,-,   .  ., 

a-B5 

..34  95 

WaMPa/bH 

...  Ha.B5 

vwmwrltrST 

4a.B5 

_..  ZSlBS 

a*iraTiHl„       .     ... 

.^35.15 

ButCofTVWiA .. 

^.ftB 

Bop-nfluTUe 

C»l  PU 14 

_..  1B.)S 
....25.K 

CBrmvilJ.S..A 

....  ».B5 

CartteUa  Ualw  ._ 

__aK 

.__1BlI5 

Crwl  Pak 

™a« 

Cnaiimnar  ?DDO 

....  SiLIS 

Crucli  Yaopi . 

...  S4.BS 

D<la  HlfVQtl  a  ..„,«...,. 

..,-  ms 

DdisW  Of  M  &ntn  .-. 

...Z2.B5 

Daman  BVMari  ^,„._._ 

._.  20.B5 

DeuPwl^.™...,,.. 

S2.B5 

OeiwepPuttJifw  ..-.«»*. 

>..^»B5 

...  m.B5 

..  H.B5 

.«.  !4.B 

FiaAnv 

....  CAlt 

Flntf  CvkUqa  3 

— ..  44.65 

FUmfflinJawIt 

....  ms 

FsniMMWltM^,.-.,-...- 

Gmkk  ^„,^_„™^. 

—  34.K 

□M  om  .-...-.>.......^ 

^^i;.fl5 

.    .34.15 

caspuaim 

34.  K 

211fi 

tMn 

UUPC^iWnciana  „ — ..^ 

zats 

UoniKHwiiivi  ^.„....„ 

-,...  !ZK 

.....  !i» 

Gmnffgn  Cena^aqj  _„_ 

24.  B5 

PlfwB5y„.^„» 

—  aBS 

«.«»« 

Pinki . 

.....  2S,B5 

P.a  QsfTfmmn  ,.—. — 

..._  22.65 

21.65 

Biaigloar 

......  2S.6S 

SF.SpenBiHB*!...^... 

...» I4BS 

-.^.  J4.B 

SLpV  Bm  Cnitong*  __. 

-.*»  tB,es 

a^*Pfr2fi4.... „ 

..„sg.cs 

SupiitSartkai»f . . 

.^.Z3.B 

SwREscySidewfin 

.....  S5.K 

2  on  2  EWimCidL  „..,„,».. 

.™  H.» 

ThaOajnW 

iZ.85 

Uima  1  

.....25,95 

1185 

ViK  In  S.  PKiflc 

3).  BIS 

3Z.BS 

WdCniUBSar  ...    ... 

....  2595 

V^ana  Twf  Qflif  ,..,*„.^... 

_..„P1» 

VDW=W'^tDng..,-.„HH,- 

...-  1B-SS 

~~OFIDEAhQ  iHFOnUATlQMrPt«ua  f*dtf  lyitacn.  For  ^ildwlwnr  WW  tatripafl  tfi*&  Of  fftqriT  proat.  Parlaiiat  ard  nfTipaTTrfUCM  ■»*  1*  femin>n  diyi  b  cHr.  Sgaael  P  O-^  wileoma.  C  J  O.  tfufgw  ■#»  |3.PP.  Ipi  Ca.TawTM<  USA inajM  KM  Im  nftwin  g»*^»  S*  ifrpfifigl 
fcrr-«^}wa,-Brr'»r'.,:^$SDQ.Uuc<CBiE]m3  V.iiO'aiipi«3Jfl  lnd.raicanl  I,  ajpral&incana  ft4  i^ltra.  Wt  rgiOv^a  pUaM  LrCLA]4^'VP««l  m.  IB.  AK,  FPO.  APO.  PuVC  R«  Bm  Cv,Adan  viWLflatia  aM  E^.l.iOP'^  HrimuiYV  HJiLM  onarlttrtign  irrivaiiac  1S% 
■hipping,  mlnlmiji^  t1I.33,  Al  c^'cw  i.-ippea  cxjiila  t«  Csr'jnBr^.ri  U  KAA-'Q  if^pt^O  I'JtOHl  Lnti^aUf,  r-41.  It  l»f»>^  i/)ppj^9«irp>i  *'^'CW4  74  mriJn«^Bma^J-IV  fAJinti  bq  cniKgaa  ha  oadtgna  t.Tia-.^.D  ^ifQuPpKluja  13  yi]u  ({.^Wir  md  latair.  Al  eDadi;  tra  Aaw  arti 
tiuMtiE'.iYyMiHrar^V  OidPajflowpf-niLttliUeiaralrd.  AJdaToflM'aijMtn^b^tinftM  1  rqum  lur>aFini»'i  rvn^M!.  (*'>atiic*:i  (414,3571!  141  ig  w^nanRAj  v)ro^  ravnwUnotDa  accnpud  Prwai  ang  »qii«i,y  luq«ClBtriar^  wOiijUlnalca. 


eo  key  (Atari  logo  key  on  400/800 
models). 

Whenever  more  than  two  spaces 
appear  in  a  row,  they  are  listed  in  a 
special  format.  For  example,  {6 
SPACES)  means  press  the  space  bar  six 
times.  Our  Commodore  listings  never 
leave  a  single  space  at  the  end  of  a  line, 
instead  moving  it  to  the  next  printed 
line  as  {SPACE}. 

Amiga  program  listings  and  Atari 
ST  program  listings  in  GFA  BASIC  con- 
tain only  one  special  character,  the  left 
arrow  (♦-)  symbol.  This  character  marks 
the  end  of  each  program  line.  Wherever 
you  see  a  left  arrow,  press  RETURN  to 
enter  that  line  into  memory.  (For  the 
Amiga,  you  can  also  enter  the  line  sim- 
ply by  moving  the  cursor  off  the  line.) 
Don't  try  to  type  in  the  left  arrow  sym- 
bol; it's  there  only  as  a  marker  to  indi- 
cate where  each  program  line  ends. 

The  Automatic  Proofreader 

Type  in  the  appropriate  program  listed 
below,  then  save  it  for  future  use.  The 
Commodore  Proofreader  works  on  the 
Commodore  128,  64,  Plus/4,  16,  and 
VIC-20,  Don't  omit  any  lines,  even  if 
they  contain  unfamiliar  commands  or 
you  think  they  don't  apply  to  your  com- 
puter. When  you  run  the  program,  it 
installs  a  machine  language  program  in 
memory  and  erases  its  BASIC  portion 
automatically  (so  be  sure  to  save  sever- 
al copies  before  running  the  program 
for  the  first  time).  If  you're  using  a 
Commodore  128,  Plus/4  or  16,  do  not 
use  any  GRAPHIC  commands  while 
the  Proofreader  is  active.  You  should 
disable  the  Commodore  Proofreader 
before  running  any  other  program.  To 
do  this,  either  turn  the  computer  off  and 
on  or  enter  SYS  64738  (for  the  64),  SYS 
65341  (128),  SYS  64802  (VIC-20),  or 
SYS  65526  (Plus/4  or  16).  To  reenable 
the  Proofreader,  reload  the  program 
and  run  it  as  usual.  Unlike  the  original 
VIC/64  Proofreader,  this  version  works 
the  same  with  disk  or  tape. 

The  IBM  Proofreader  is  a  BASIC 
program  that  simulates  the  IBM  BASIC 
line  editor,  letting  you  enter,  edit,  list, 
save,  and  load  programs  that  you  type. 
Type  RUN  to  activate.  Be  sure  to  leave 
Caps  Lock  on,  except  when  typing  low- 
ercase characters. 

On  the  Atari,  run  the  Proofreader 
to  activate  it  (the  Proofreader  remains 
active  in  memory  as  a  machine  lan- 
guage program);  you  must  then  enter 
NEW  to  erase  the  BASIC  loader.  Press- 
ing SYSTEM  RESET  deactivates  the 
Atari  Proofreader;  enter  PRINT  USR 
(1536)  to  reenable  it. 

The  Apple  Proofreader  erases  the 
BASIC  portion  of  itself  after  you  run  it, 
leaving  only  the  machine  language  por- 
tion in  memory.  It  works  with  either 


DOS  3.3  or  ProDOS.  Disable  the  Apple 
Proofreader  by  pressing  CTRL-RESET 
before  running  another  BASIC  program. 

Once  the  Proofreader  is  active,  try 
typing  in  a  line.  As  soon  as  you  press 
RETURN,  either  a  hexadecimal  number 
(on  the  Apple)  or  a  pair  of  letters  (on  the 
Commodore,  Atari,  or  IBM)  appears. 
The  number  or  pair  of  letters  is  called  a 
checksum. 

Compare  the  value  displayed  on 
the  screen  by  the  Proofreader  with  the 
checksum  printed  in  the  program  list- 
ing in  the  magazine.  The  checksum  is 
given  to  the  left  of  each  line  number. 
Just  type  in  the  program  a  line  at  a  time 
(without  the  printed  checksum),  press 
RETURN  or  Enter,  and  compare  the 
checksums.  If  they  match,  go  on  to  the 
next  line.  If  not,  check  your  typing; 
you've  made  a  mistake.  Because  of  the 
checksum  method  used,  do  not  type 
abbreviations,  such  as  ?  for  PRINT.  On 
the  Atari  and  Apple  Proofreaders, 
spaces  are  not  counted  as  part  of  the 
checksum,  so  be  sure  you  type  the  right 
number  of  spaces  between  quote 
marks.  The  Atari  Proofreader  does  not 
check  to  see  that  you've  typed  the  char- 
acters in  the  right  order,  so  if  characters 
are  transposed,  the  checksum  still 
matches  the  listing.  The  Commodore 
Proofreader  catches  transposition  er- 
rors and  ignores  spaces  unless  they're 
enclosed  in  quotation  marks.  The  IBM 
Proofreader  detects  errors  in  spacing 
and  transposition. 

IBM  Proofreader  Commands 

Since  the  IBM  Proofreader  replaces  the 
computer's  normal  BASIC  line  editor,  it 
has  to  include  many  of  the  direct-mode 
IBM  BASIC  commands.  The  syntax  is 
identical  to  IBM  BASIC.  Commands 
simulated  are  LIST,  LLIST,  NEW, 
FILES,  SAVE,  and  LOAD.  When  listing 
your  program,  press  any  key  (except 
Ctrl-Break)  to  stop  the  listing.  If  you 
enter  NEW,  the  Proofreader  prompts 
you  to  press  Y  to  be  especially  sure  you 
mean  yes. 

Two  new  commands  are  BASIC 
and  CHECK.  BASIC  exits  the  Proof- 
reader back  to  IBM  BASIC,  leaving  the 
Proofreader  in  memory.  CHECK  works 
just  like  LIST,  but  shows  the  checksums 
along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk. 
"Then  exit  the  Proofreader  with  the 
BASIC  command,  and  load  the  pro- 
gram as  usual  (this  replaces  the  Proof- 
reader in  memory).  You  can  now  nm 
the  program,  but  you  may  want  to  re- 
save  it  to  disk.  This  will  shorten  it  on 
disk  and  make  it  load  faster,  but  it  can 
no  longer  be  edited  with  the  Proofread- 
er. If  you  want  to  convert  an  existing 
BASIC  program  to  Proofreader  format, 
save  it  to  disk  with  SAVE  "filename", A. 


Program  1:  Atari  Proofreader 

By  Charles  Brannon 


100 

1 10 


120 


130 
140 


150 
160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 


eRAPHICS  0 

FOR  1-1536  TO  1700: RE 

AD  A;POKE  I,AsCK-CK+A 

: NE  X  T  I 

IF  CKO19072  THEN  ?  " 

Error  in  DATA  Stateme 

nts.   Check  Typing.": 

END 

A-USR(1536) 

?  ;7  "Automatic  Proof 

reader  Noh  Activated. 


END 

DATA 

,3,20 

DATA 

0B,24 

DATA 

,6,15 

DATA 

74,6, 

DATA 

41,70 

DATA 

e,  105 

DATA 

0,  141 

DATA 

,23B, 

DATA 

124,2 

DATA 

246,8 

DATA 

2,240 

DATA 

40,96 

DATA 

,145, 

DATA 

74,74 

DATA 

,165, 

DATA 

ee,  16 

DATA 
40,96 


35,26 


,96,6, 169 
0, 133, 203,96, 
125,241,93,6 
244,241, 1 15, : 

!4l,76, 205, 23{ 
0, 0,0, 0, 0, 32 

1.201 
155,240, 13, 2j 

1,7,72,24,  101 


241, 

8 

,62, 


01,3 


Program  2:  Commodore 
Proofreader 

By  Philip  Nelson 

10  VEC=PEEK(772)+256*PEEK(773) 

:LO=43sHI=44 
20  PRINT  "AUTOMATIC  PROOFREADE 

R  FOR  ";jIF  VEC=42364  THEN 

fSPACElPRINT  "C-64" 
30  IF  VEC=S0556  THEN  PRINT  "VI 

C-20" 
40  IF  VEC=35158  THEN  GRAPHIC  C 

LRs PRINT  "PLUS/4  &  16" 
50  IF  VEC=17165  THEN  LO=45 :HI= 

46:GRAPHIC  CLR: PRINT "128" 
60  SA=(PEEK(LO)+256*PEEK(HI))+ 

6iADR=SA 
70  FOR  J=0  TO  166: READ  BYTiPOK 

E  ADH,BYT:ADR=ADR+1:CHK=CHK 

+BYT:NEXT 
80  IF  CHK<>2057a  THEN  PRINT  "* 

ERROR*  CHECK  TYPING  IN  DATA 
STATEMENTS " : END 
90  FOR  J=l  TO  5:READ  RF.LF.HFi 

RS=SA+RF:HB=INT(HS/256):LBa 

RS-(256*HB) 
100    CHK=CHK+RF+LF+HF SPOKE    SA-HL 

F, LB  J  POKE    SA+HF,HBiNEXT 


90     COMPUTEI      March  1988 


115  Nassau  St.  NY.,  NY.  10038 

Bet.  Bcekman  &  Ann  Sts.(212)732-4500 

Open  Mon-Fri,  8:30-6:30/Sal,  CLOSED 

Sun,  9:30-5:30 


Penn.  Station,  Amtrack  Level  Beneath 
Madison  Sq.  Gar(len,NY.,NY.  10001 


FOR  ORDERS  AND 
INFORMATION  CALL 
TOLL  FREE 

OPEri   7   DAVS  A  WEEK 
FOR  ORDERS 


n  bts.1212  ^2-4300      ,      .  Madison  bq.  oaraen,NY.,Ny.  luuui 
>-6:30^sJ,  CLOSEO     ,(2.2)594^-m0  |,_=a^Mo„-Wed,  8.30-8/T^ 

1  (800)  345  -  7058     "ium-FM 


FAX  NO.  212-564-1497  telex422-132 


8  IN   NEW   YORK    STATE   CALL 

(212)594-7140 

fOR  CUSTOMER  SERVICE   CALL  MOIl    FRl  SAM    4PM 

(718)965-8686 


EPSON  EQUITY  1 


-  6^0K  RAW  w/Clock  Caiendai  ■  2 
360K  Drives  •  Keyboard  -  Ssral/Par*- 
lelPorts  ■  12"  HighReSOlulion  Monilor 

■  BoKof  lOOtsKsttes 


»849 


iiamH  Package  with     $-1 /\v1Q 


\  Floppy  &  20MB 
Haid  DrdVB 


PACKAGE 


'  IBM  XT  Computer  .  IBM  Keyboard  256K 
RAM  Expandable  10  640K  .  350K  Disk  Drive 
•  ^UB  Hard  Drive  •  Package  ol  10  Diskettes 
(Monitor  Opiioral) 


M499 


IBM  KT  Package  wilh  $4  070 
2  360K  Floppy  Drives       I  £.  I  S 


SEC 

POWERMATE  I 


LEADING 
EDGE 


IBM  PC/XT 

COMPATIBLE 

PACKAGE 


■  600286  8MHi  Processor  ■  640K  RAM 
•  1.2M9  Floppy  •  12"  Monitor 


*1349 


•  51 2KHAM Computer  ■Keyboard  -SSOK 
I  Floppy  Drive  •  J.7-7.16MH7  '  12-Hi9h 
Resolutior^  Mono  Monitor 


Same  Pkg.  with      t  1  CTQ 
20MB  Harcl  Drive     *    I  3  •  « 


PERSONAL 
SYSTEM  2 

MOOCLSO 


m/raJK    Flopoi 

IBM  Hard  Drn«        *2599 

Pe.-^onfll  Syslem  1!  Model  25 EtOJO 

PSIi  Model  ^b  w/Colai  Monelor £1?S9 

PERSONAL  SYSTEM  It  MODEL  » *t1  »t 

PS  II  Mcxie]  60w/44MB>iBidDive£ 

1  730  k  FIOPBv  Olive SSSaS 

IBM  P*r¥Dn«l  Syslem  II  Moniiors 
SSOSMo/w 5249 


IBM  PC/ICT  COMPA  TIBLE 
PACKAGE 

•  Keyboard  •  640K  RAM  'Tiirbo, 
Speed  ij  MHi.  •  Two  360K 
Floppy  Drives  •  MS  DOS  " 
•  Monogfaptiics  Card  .  High 
Rosoljlion  Wonoctiiome 


*679 


FBEE  WORD  PROCESSINa  SOFTWARe 


AMIGA  PERIPHERALS 

GO  S4   F.2RMI1GA  VQ  lOCCKJOO 

USE  YOORfrli  i28SOFIWAftf 
ONYOUHAMXiA  ^gg  95 


6512  Goto. . 
as  13  Color. 


..£479 
&529 


rioppv&rvv&TOMBlB'vt        I  037 


MONITORS 

I  THOMPSON  UllraScan  Monitor (4t> 

I  MAQNAVOX  EGA  Monitor $139 

I  MAQNAVOX  EGA  Monitor  w/E(IACatd|4St 


POWERMATE  II    $•(  Q7Q 

w/Monto^^^^^^^a 

commodore 

IBMPC/XT  PCIO  — 1 

COMPAVBLE 

PACKAGE 

.  PCIO-^  Computer 
5t2K  Expandable 

toS40K'3S0KDiskc 
Drive 

'Entianced 
KeyboA/d^ 

.  Serial  &  Paraitel 
Ports  <  12"  Monitor 

.  Ail  hHook-up  Cables  &  Adepiers 

*  Package  of    10 
Diskettes 


^jm. 


Same  Package  witti  JH  f\A  Q 
20MB  Hard  Drive         '  WT^ 


tN 


STOCK 


.  68000  Processor       .     51 2K  RAM 
ExoandabiotoBMS.GraphicsProcessor  ] 

501)/ 10*4/1 010 

*979 


«499 


20MB  Hatd  Drive 


*769 


500  with  1 0S4 

*769 

AMIGA  PERIPHERALS 

A-501  51SK  EXPANSION 
A- 1 0 1 0  a.5'  FLOPPY  DRIVE 
A- 1 02OT  5.2S"  DISK  DRIVE  with 
TRANSFORMER 
A-)084  RGB  COLOn  MONFTOR 
A-1300  GENLOCK 
A-16aO  MODEM  •  RF  MODULATOR 
BRIDGE  CARD  Model  #A-2088 
WE  WILL  BEATAWPfyCei 


UKIDATA 

OKl-120 S189 

OKIHATE-20 S139 

OKIDATA-iaO S2tB 

PANASONIC 

toaoi-ii S158 

10911-11 $179 

1092. S279 

:SERIE3  II  *f  649 


#'PP^| 


PRINTERS 


TOSHIBA 

321-SL. M79 

341 $&48 

351-11 S799 

STAR 

NX-1000 S169 

NX-15 S278 

NB-2410 S389 


I  MAC  +  PACKAGE 

*MAC  +  Computer 


PC10-2W/12  Monitor   *599l     AMIGA  2000     CALL 


LAPTOPS      HARD  DRIVES  > 


N9-3415 

..SSS9 

FX-B6E....!^=?^... 

....S309 

FX-2a6E 

S449 

LQ-SOO... ..„...„.,.. 

S399 

„..A499 

LQ-10O0 

....*499 

LO-1050  ,.....* 

,....5679 

Exeoo        

....t409 

n 


PACKAGES 

•  Apple  lie  or  HE 
Computer  *  5.25'  Drive 
•  12"  Monitor  •  All 
Hook-Up  Cables  and 
Adapters  *  Package  ot 
iO  Diskettes 

APPLE  lie  APPLE  HE 

PACKAGE  PACKAGE 

'579   »779 

UGS  RGB  COLOR  PACKAGE 
lApple  IIGS  Kflytx^rd  -3.5'  DiSK  Drive  •  Apple  I 
RGB  Color  Monitor  •  10  Diskettes  •  Apple 
Softwaffl  *  AC  Adaplofs  -All  Hooh-tip  Cables  ] 


I  •  Bum-In  SOOK  DisX 
1 0TiV9  ■  1  MS  RAM 

*  Apple  Mouse 

■  Apple  Monitor 

■Keyboard 

«1579 

■  hard  DRIVE  FOR  MAC  t *•« 


MACSE 
PACKAGE 


•  Dual  Built-in  BOOK  Disk  I 
DrTveS'New  MAC  Keyboard  I 
*1MB  RAM  Expandable  to  I 
4MB  "New  Expansion  Slol  | 
Accepts  Special  Boanis 


«2199 


*1379 


W/Apple  20MB  Hand  Drive S2599 

lm*o*wrlt*r  II  Printer t***.*i 

Apple  WortM  Sonware _ MtM 


TOSHIBA  1000  m 

•  720K  Floppy  •  521 K  RAM 
*  ATI  MHz.  •Super  Twist 
LCD  Screen     4>'7QQ 

ZENITH  181-...^ 81549,  j 

ZENITH  1B3 S2239  f 

SPARK  by  DeVavue 

640K  w/2  72aK  DrivBi  ....St  099 

NEC  Mutttspeerf. $1249 

NECMuHlspeed  EL $1549 

Toshiba  3050/20  .  


commodore 

COMPUTERS  & 

PERIPHERALS 

"  -  ■■■■'■7^' 

I  G4C  Perional  Computer .....£149.95  I 

C-128PoisonalO=mpuler $219.95 

C-1 28  Dw/Buill-in  Disk  Drive $439.95 

MPS- 1 200  Computer  Printer S209.9S 

MPS-80SC Computer  Printer $119.95 

MPS- 1 250  Comp'Jter  Printer $239.99 

DPS-1 1 01  Daisy  Wheel  Printer...$1 69.95 

1S41C  New  Disli  Drive t149.95 

1571  Computer  Disk  Drive .,,$209.95 

tSatCompjleiDiskDrive Sia9.95 

1902  SOcol- RGB  Color  Monitor. .$214. 95 

1080  RGB  Color  Monitor $229,95  1 

1802  Color  Computer  Monitor.. ..$169. 95 
1700  12eK  Expansion  Module. ..-.$99.95 
1750512KExpan3ionMo<Jole,-..$ie9.95  I 

1764  Expansion  Module £1 19.95  I 

1670Automodem $129.95  [ 


SEAGATE 

20MBw/ContToller 

$279 

30MB  w/Conlroller 

$319 


40MB  w/Conlroller 

$369 

SEAGATE  40M9  w/  | 
Controller  $449 


commodore 


COMPUTER 
PACKAGES 

I  C'  ^^  COMPLETE  PACKAGE 

■  C-64C  Computer    ■   1541  Disk  Drive 

•  Computer  Printer   •   12"  Monitor 

•  GEOS  Softwaje  Program 


■  I3XOR  MONITOR 
-ADD  $90- 


»329 


COLOR  PACKAGE 

•  C-64C  Computer  •  1 54 1 C  Disk  Drive 

*  Color  Prinler .  Color  Monitor  -GEOS 
Software  Program  e  je  •»  r* 

jo  128S COMPLETE  PACKAGE  | 

C-128Computer't541  Disk  Drive  .1 2" 
Monitor .  Computet  Printer 

*429 


I30L0H  MONITOR 
-ADD  $90- 


lOSUBTrriTEC-lST! 
F0ftC.IS4tAOO«0   I 


Cc  128^  DELUXE  PACKAGE 

-C-12B  Computer  -1571  Disk  Drive 
•  1902ColorMonitor>15t580Column 
Printer  jgyg 


WO     SURCHARGc     FOR    CREDIT    CAKD    UKUtKb  |6M  Pi/XT  *f*  mjuIim^  Kidimnk*  ol  Intimjlwrul  BuiiB«i  ^hehlM  Corp    All  oid«ri  cin  b«  ihip^id  An  Eipi*(i- ;  jl<  f 


Ufa  IF  CHKO 22054  THEN  PRINT  " 

*ERROR*  RELOAD  PROGRAM  AND 

(SPACE} CHECK  FINAL  LINE": EN 

D 
120  POKE  SA+149,PEEK(772) iPOKE 

SA+1S0,PEEK(773) 
130  IF  VEC=17165  THEN  POKE  SA+ 

14,22:P0KE  SA+18,23 iPOKESA+ 

29,224sPOKESA+139,224 
140  PRINT  CHR5(147);CHR$(17);" 

PROOFREADER  ACTIVE ": SYS  SA 
150  POKE  HI, PEEK ( HI) +1: POKE  (P 

EEK{ LO)  +  256*PEEK ( HI ) ) -1 , 0  sK 

EW 
160  DATA  120,169,73,141,4,3,16 

9,3,141,5,3 
170  DATA  88,96,165,20,133,167, 

165,21,133,168,169 
180  DATA  0,141,0,255,162,31,18 

1,199,157,227,3 
190  DATA  202,16,248,169,19,32, 

210,255,169,18,32 
200  DATA  210,255,160,0,132,180 

,132,176,136,230,180 
210  DATA  200,185,0,2,240,46,20 

1,34,208,8,72 
220  DATA  165,176,73,255,133,17 

6,104,72,201,32,208 
230  DATA  7,165,176,208,3,104,2 

08,226,104,166,180 
240  DATA  24,165,167,121,0,2,13 

3,167,165,168,105 
250  DATA  0,133,168,202,208,239 

,240,202,165,167,69 
260  DATA  168,72,41,15,168,185, 

211,3,32,210,255 
270  DATA  104,74,74,74,74,168,1 

85,211,3,32,210 
280  DATA  255,162,31,189,227,3, 

149,199,202,16,248 
290  DATA  169,146,32,210,255,76 

,86,137,65,66,67 
300  DATA  68,69,70,71,72,74,75, 

77,80,81,82,83,88 
310  DATA  13,2,7,167,31,32,151, 

116,117,151,128,129,167,136 

,137 

Program  3:  IBM  Proofreader 

By  Charles  Brannon 

10  'Automatic  Praofreader  Ver 

sion  3.0  <Liries  205,206  ad 

dad/190  deleted/470,490  ch 

anged  from  V2.0> 

10^1  DIM  L«(500)  ,LNLin(500):COL 

OR  0,7, 7: KEY  □FF:CLB:MflX= 

0:LNUM(0> =63536! 
110  ON  ERROR  GOTO  120: KEY  15, 

CHR»(4)+CHR*C70) iQN  KEYCl 

5)  BOSUB  640: KEY  <15)  ON: 

SOTO  130 
120  RESUME  130 

130  DEF  SEQ=!iH40:W=PEEK(*<H4A) 
140  ON  ERROR  SOTO  6S0! PRINT: P 

R I NT " Proof  reader  Ready . " 
150  LINE  INPUT  L«sy=CSRLIN-IN 

T(LENCL»>/W)-1: LOCATE  Y, 1 
160  DEF  SEB=0:PaKE  1050, 30: PO 

KE  1032, 34: POKE  1054, 0:Pa 

KE  1053, 79: POKE  1056, 13: P 

QKE  1037,28: LINE  INPUT  L« 

sDEF  SeS; IF  L»-""  THEN  15 

0 
170  IF  LEFT*(L»,1)="  "  THEN  L 

••MID* CL*, 2): SOTO  170 
180  IF  VAL(LEFT«<L*,2))-=0  AND 
MID*  (L»,  3,  !)=•••  •■  THEN  L« 

=MID»<L«,4) 
200  IF  ASCCL*)>57  THEN  260  'n 

o  line  number,  there-fore 

command 


203  BL=INSTR(L*,"  "JJIF  BL"0 
THEN  BL»=L»:QaTO  206  ELSE 
BL«-LEFT«  tL«, BL-1 > 

206  LNUM= VAL ( BL» ) : TE  X  T»=M I D» ( 
L» , LEN ( STR* ( LNUM) ) + 1 > 

210  IF  TEXT*-""  THEN  SOSUB  54 
01  IF  LNUM-LNUM(P)  THEN  BO 
SUB  560:BOTO  1S0  ELSE  150 

220  CKSUM=0:FOR  1=1  TO  LEN(L« 
) jCKSUM" (CKSUM+ASC (MID* (L 
*,  I))tl)  AND  2SSlNEXT:L0C 
ATE  Y,l!PRINT  CHR»( 65+CKS 
UM/16)+CHR«(65+(CKSUM  AND 
13) )+"  "+L« 

230  GOSUB  3408  IF  LNUM<P)=LNUM 
THEN  L«(P)=TEXT*tBOTO  IS 

0  'replace  line 

240  BOSUB  3B0:eOTO  150  'inser 
t  the  line 

260  TEXT«="":FOR  1=1  TO  LEN<L 
•) I A-ASC (MID* (L*, I ) ) ! TEXT 
•-TEXT«+CHR*(A+32»<A>96  A 
ND  A< 123)): NEXT 

270  DELIMITER=INSTft(TEXT»,"  " 
) tCaMMAND»=TEXT*i ARG«-""i 
IF  DELIMITER  THEN  COMMAND 
•-LEFT* (TEXT»,DELIMITER-1 
>  I  AR9»«>MID*<TEXT», DELIMIT 
ER-t-1)  ELSE  DELI  MITER- INST 
R{TEXT»,CHR«(34)):IF  DELI 
MITER  THEN  COMMAND*=LEFT* 
(TEXT*, DELIMlTeR-1 ) ! ARB«= 
MID* (TEXT*, DELIMITER) 

280  IF  COnMAND»<>"LIST"  THEN 
410 

290  OPEN  "scrni"  FOR  OUTPUT  A 
S  111 

300  IF  ARB«=""  THEN  FIRST=0!P 
=MAX-li0OTO  340 

310  DELIMITER=INSTR(ARS»,"-") 

1  IF  DeLlMITER*0  THEN  LNUM 
" VAL ( ARQ* ) : BOSUB  340 l F I RS 
T-PsSOTO  340 

320  FIRST=VAL (LEFT* (ARS*, DELI 

MITER) > : LAST»VAL (MID* ( ARB 

»,DELIMITER+1)) 
330  LNUM»FIRST:BDSUB  540: FIRS 
•   T-PiLNUM-LASTs BOSUB  S40J I 

F  P-0  THEN  P-MAX-i 
340  FOR  X*FIRST  TO  P:N«'=MID*( 

STR»(LNUM<X)),2)+"  " 
350  IF  CKFLAB=0  THEN  A*="":BO 

TO  370 
360  CKSUM«0 ; A*=N*+L*  f  X ) : FOR  1 

-1  TO  LENCA*) tCKSUM-(CKSU 

M-fASC(MID*(A*,I))tI)  AND 

255:  NEXT:  A»=-CHR*  C65+CKSUM 

/16)+CHR*«65+(CKSUM  AND  1 

5))+"  " 
370  PRINT  #1,A*+N*+L*(X) 
380  IF  INKEY»<>""  THEN  X-P 
390  NEXT  : CLOSE  #1:CKFLAG=0 
400  BOTQ  130 
410  IF  CQMMAND*="LLIST"  THEN 

OPEN  "Iptli"  FOR  OUTPUT  A 

S  ttliBOTO  300 
420  IF  COMMAND*^" CHECK"  THEN 

CKFLAB-lsBOTO  290 
430  IF  CaMMAND«<>"SAVE"  THEN 

450 
440  BOSUB  600: OPEN  ARB*  FOR  0 

UTPUT  AS  «l! ARE*""": SOTO 

300 
450  IF  COMMAND»<>"LOAD"  THEN 

490 
460  GOSUB  600:  OPEN  ARQ*  FOR  I 

NPUT  AS  «l:MAX«0sP*=0 
470  WHILE  NOT  EDF(1):LINE  INP 

UT  #1,L»:BL-INSTR(L*,"  ") 

: BL»=LEFT* (L» , BL-1 ) : LNUM ( 

P) -VAL (BL») ! L*(P) "MID* (L* 


,  LEN(STR«  ( VAL  (BL*> ! )  i-1)  j  P 

=P+1:WEND 
480  MAX=Ps CLOSE  #l:BDTO  130 
490  IF  COMMAND*=-NEW"  THEN  IN 

PUT  "Erase  program  -  Are 
, you  sure"5L»«IF  LEFT*(L», 

l)-"y"  DR  LEFT*(L*,1)-"Y" 
THEN  MAX=0: LNUM (0) =63336 

iiBOTO  130: ELSE  130 
500  IF  CDMMAND»="BASIC"  THEN 

COLOR  7, 0,0: ON  ERROR  BOTO 
0tCLS:END 
510  IF  COMMAND*<> "FILES"  THEN 

520 
515  IF  ARG*=""  THEN  AR6»="A: " 

ELSE  SEL=1: BOSUB  600 
517  FILES  AR6«;B0T0  130 
520  PRINT"Syntax  error": SOTO 

130 
540  P=0: WHILE  LNUM>LNUM(P)  AN 

D  P<MAX:P»P+ts WEND: RETURN 
560  MAX=MAX-l:FOR  X=P  TO  MAX: 

LNUM(X)=LNUM(X+1):L*(X)=L 

*(X+1)! NEXT: RETURN 
580  MAX=MAX+1:F0R  X=MftX  TO  P+ 

1  STEP  -l;LNUM(X)=LNUM(X- 

1) lL»(X)"L»<X-l) iNEXTiL«( 

P) "TEXT*: LNUM (P) =LNUM: RET 

URN 
600  IF  LEFT»(ARB«,1)<>CHR«(34 

)  THEN  520  ELSE  ARQ*-MID* 

(AR3«,2) 
610  IF  RIGHT* (ARB«,1)=CHR* (34 

)  THEN  ARQ*«LEFT«(ARB*,LE 

N(ARB«)-1} 
620  IF  SEL'«0  AND  iNSTR(ARB*," 

.")=0  THEN  ARG»«ARQ*+".BA 

S" 
630  SEL=0: RETURN 
640  CLOSE  #l!CKFLAG=0:PRINT"S 

topped.": RETURN  150 
650  PRINT  "Error  #";ERR:RE3UM 

E  150 

Program  4:  Apple 
Proofreader 

By  Tim  Victor,  Editorial 
Programmer 

10  C  =  0:  FOR  I  =  768  TO  768 

+  68:  READ  A:C  =  C  +  As  PO 

KE  I, A:  NEXT 
20  IF  C  <  >  725B  THEN  PRINT  " 

ERROR  IN  PROOFREADER  DATA 

STATEMENTS":  END 
30  IF  PEEK  (190  »  256)  <  >  76 
THEN  POKE  36,0;  POKE  57,3 

:  CALL  1002:  GOTO  50 
40  PRINT  CHR*  (4);"IN#A»300" 
50  POKE  34,0:  HOME  :  POKE  34, 

1:  VTAB  2s  PRINT  "PRQQFREA 

DER  INSTALLED" 
60  NEW 
100  DATA  216,32,27,253,201,14 

1 
110  DATA  208,60,138,72,169,0 
120  DATA  72,189,255,1,201,160 
130  DATA  240,8,104,10,125,255 
140  DATA  1,105,0,72,202,208 
150  DATA  238,104,170,41,15,9 
160  DATA  48,201,58,144,2,233 
170  DATA  57,141,1,4,138,74 
180  DATA  74,74,74,41,15,9 
190  DATA  48,201,58,144,2,233 
200  DATA  57,141,0,4,104,170 
210  DATA  169,141,96 
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Save  Your 
Copies  of 
COMPUTE! 

Protect  your  back  issues 
of  COMPUTE!  in  durable 
binders  or  library  cases. 
Each  binder  or  cose  is 
custom-made  in  flag-blue 
binding  with  embossed 
white  lettering.  Each  holds 
a  year  of  COMPUTE!.  Or- 
der several  and  i<eep 
your  issues  of  COMPUTE! 
neatly  organized  for  quick 
reference.  (These  binders 
make  great  gifts,  tool) 


Binders  Cases: 

$9.95  each;  $7.95  each; 

3  for  $27,95;  3  for  $21.95; 

6  for  $52,95  6  for  $39.95 

(Please  add  $2.50  per  unit 
for  orders  outside  the  U.S.) 

Send  in  your  prepaid  order 
with  the  attached  coupon 


Moil  to:  Jesse  Jones  Industries 
P.O.  Box  5120 
Dept.  Code  COTE 
Philadelphia,  PA  19141 


please  send  me 
PUTEI  D  cases  n  bind 
Enclosed  is  my  check 

nrrlor  fnr  ^ 

ars. 
or  m 
(U.S 

COI^- 

oney 
funds 

only.) 

NnmR                 —    - 

Address . 

City 

State  _ 


.  Zip . 


Satisfaction  guaranteed  or  money 

refunded. 

Please  allow  4-6  weeks  for  delivery. 


yy  jf^p^rry  r/J-Ary  rp-A'iT'-ry 


/F/^-ATr 


A  NEW  FORM  OF  WRITE  PROTECTION 

r/^JZT  tlldM  Into  the  dl«t(  ot  th«  top  eofnw 
directly  obova  tha  wlte-protnet  rvotcti  ond  illpi 
down  to  cowr  tha  notch  from  th*  Inilda. 

IV^JST  titdn  out  >jit  oi  toAi  to  allow  thi 
dlik  tD>bB  writton  to. 

rj^JOT  li  good  for  th*  Ufa  of  yotir  dlik. 

K^JOT'  la  llgtit  in  color  nllovlng  It  to  ba 
viswad  when  the  dlik  la  Inatallad  In  the  drive 
>jai  by  glancing  at  the  drive  door. 

rj^JTT  aalls  tor  Xt-^i  pw  pks  of  ton  (10). 
Please  Include  t.50  for  ehlpping  and  handling. 
Sorry,  no  C.O.D,  of  cfadlt  card  ordara. 

ORDER   TODAYl 

WRITE  PROTECT 


■  STORAGE 


NEAR  FUTURE  COMPUTER 
P.O.   Box  1726 
WaUa  ¥aUa,   Wa  99362 
(509)   525-3288 


Save  on  BROWNOUT  protection! 
LINE  CONDITIONER 

keeps  power  constant  during 
voltage  sags  and  power  surges! 

Prevents  damage  and  downtime  on  computers, 
phone  systems,  cash  registers,  etc.  by  providing  full 
voltage  support  when  AC  input  power  varies  up  or 
down.  Maintains  constant  output  of  120V.  Uns 
Stabilizer'is  a  stepped  transformer  system  that  has 
higher  efficiency  than  CVT's  (constant  voltage  trans- 
formers)  and  gives  lower  waveform  distortion  at  FAR 
LOWER  COST.  Built-in  spil(e  and  noise  suppression. 
I-Year  warranty! 


1200-Watt,  4  Outlet 

ONLY  S199 


180a-Watt,  6  Outlet 

ONLY  S259 


Order  toll  free  1-800-662-5021 

IN  ILLINOIS  CALL  1-312-643-2191  OR  MAIL  COUPON 


INDUS-TOOL,  730  W.  Lake  Street 
Dept  CI,  Chicago,  IL  60606 

Enclosed  is  $ or  charge  on 

n  MasterCard  DVisa  D  Expires 

Card  No. . 

Send  Lj  1200-Watt  @  $199  DIBOO-Watt  ®  S259 

Name = — 

Company  _^ -^ — 

Mdress    . — —  - — 

Cil  y.S1ate.zip   

Phone  ^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^ 


XEROX 

DIABLO  630 

LETTER  QUALITY 
PRINTER 

LIQUIDATION 


Tt  rinirr;-"'  '-'^^-^""^  FbRFECTt, 


Sfaaafife; 


Enjoy  the  ease  and  speed  of 
printing  witti  this  letter  quality 
Xerox/Diablo  630  API  Daisy 
Wheel  Printer.  Prints  both 
graphics  and  letter  quality  text 
without  changing  Daisy  Wheel! 
Perfect  for  home  or  office  use! 

\ FEATURES: 

•  40  Characters  per  second  Willi  plaslic  print 
wheels. 

•  32  Characters  per  second  wiih  metal  prim 
wheels. 

•  Paper  width  iS  16.53  inches  (419.9mm) 
maximum  if  using  Iriciion  feed    1 5.25  inches 
(387.4mm)  maximum  if  using  lorms  tractor 
(not  included) 

•  Self-test,  data  receive^transmit  speed 
setection, 

•  Graphics,  HyPlot  Veclor  Plotting,  Word 
Processing. 

•  Plastic  Daisy  Wlieel  included. 

•  API.  All  Purpose  iniertacB  (works  with  most 
personal  or  business  computers  on  ttte 
market.) 

90-Day  Warranty! 


!\/lanufactufer'E 

Suggested  Retail 

$1995.00 

■.t,l,..»=l!IJ:IUJi 

^398 

Order  No.  B-638-102103 
Insured  Ship/Hand.:  $40.QO| 


FOR  FASTEST  SERVICE 
CALL  TOLL  FREE 

1-800-533-3379 


PUBLIC  NOTICE 
D:atjto  a  duvison  ol  world  re- 
"ff/^ned,  Xerox  decided  to 
raj,  date  this  model  As  a  re- 
$y.[,  weoDiamed  sno  rerriain- 
ii^g  stock  and  oHertfiem  to  you 
at  FAR  BELOW  DEALEH 
COSTr 


or  send  check. 

money  order  or 

credit  card  infOn  lo; 


DAMARK  IHTER NATIONAL.  IMC. 

7714  Brooklyn  eiwd  Minoeapo'jS.  MN  55*43 

Corporals  Oflices  *  6 1 2;560=64 1 5 

Please  send  me Xerox  DiaWo  Pnnteris)  @  S396 

sa&i.  pJjs  $40  00  sh'pp'ngnairfllFng  each. 
UH  res,  add  G%  sales  lax. 


Add'es5  ___ 


diy.State.Zip 

D  Check.  MO 
Card  No  . 


Ekp  Date- 


D  VISA  D  Master  Card 


-^ pf\  m 


Order  No  B-638-102103 


DELIVERY  TO  48  U.S.  STATES  ONLY 


|kJ||  y^  Machine  Language  Entry  Program 


For  Commodore  64 


Ottis  Covi^Der,  Technical  Editor  ^^ 

"MIX"  is  a  labor-saving  utility  that  allows 
almost  fail-safe  entry  of  Commodore  64 
machine  language  programs. 


Type  in  and  save  some  copies  of  MLX — 
you'll  want  to  use  it  to  enter  future  ma- 
chine langauge  (ML)  programs  from 
COMPUTE!.  When  you're  ready  to  enter 
an  ML  program,  load  and  run  MLX.  It 
asks  you  for  a  starting  address  and  an 
ending  address.  These  addresses  appear 
in  the  article  accompanying  the  MLX- 
format  program  listing  you're  typing. 

If  you're  unfamiliar  with  machine 
language,  the  addresses  (and  all  other 
values  you  enter  in  MLX)  may  appear 
strange.  Instead  of  the  usual  decimal 
numbers  you're  accustomed  to,  these 
numbers  are  in  hexadecimal — a  base  16 
numbering  system  commonly  used  by 
ML  programmers.  Hexadecimal — hex 
for  short — includes  the  numerals  0-9 
and  the  letters  A-F.  But  don't  worry — 
even  if  you  know  nothing  about  ML  or 
hex,  you  should  have  no  trouble  using 
MLX. 

After  you  enter  the  starting  and  end- 
ing addresses,  you'll  be  offered  the  op- 
tion of  clearing  the  workspace.  Choose 
this  option  if  you're  starting  to  enter  a 
new  listing.  If  you're  continuing  a  listing 
that's  partially  typed  from  a  previous 
session,  don't  choose  this  option. 

A  functions  menu  will  appear.  The 
first  option  in  the  menu  is  ENTER 
DATA.  If  you're  just  starting  to  type  in  a 
program,  pick  this.  Press  the  E  key,  and 
type  the  first  number  in  the  firet  line  of 
the  program  listing.  If  you've  already 
typed  in  part  of  a  program,  type  the  line 
number  where  you  left  off  typing  at  the 
end  of  the  previous  session  (be  sure  to 
load  the  partially  completed  program 
before  you  resume  entry).  In  any  case, 
make  sure  the  address  you  enter  corre- 
sponds to  the  address  of  a  line  in  the 
listing  you  are  entering.  Otherwise,  you'll 
be  unable  to  enter  the  data  correctly.  If 
you  pressed  E  by  mistake,  you  can  return 
to  the  command  menu  by  pressing  RE- 
TURN alone  when  asked  for  the  address. 
(You  can  get  back  to  the  menu  from  most 
options  by  pressing  RETURN  with  no 
other  input.) 

Entering  A  Listing 

Once  you're  in  Enter  mode,  MLX  prints 
the  address  for  each  program  line  for 
you.  You  then  type  in  all  nine  numbers 
on  that  line,  beginning  with  the  first  two- 
digit  number  after  the  colon  (:).  Each  line 
represents  e^t  data  bytes  and  a  check- 


sum. Although  an  MLX-format  listing 
appears  similar  to  the  "hex  dump"  list- 
ings from  a  machine  language  monitor 
program,  the  extra  checksum  number  on 
the  end  allows  MLX  to  check  your 
typing. 

When  you  enter  a  line,  MLX  recalcu- 
lates the  checksum  from  the  eight  bytes 
and  the  address  and  compares  this  value 
to  the  number  from  the  ninth  column.  If 
the  values  match,  you'll  hear  a  bell  tone, 
the  data  will  be  added  to  the  workspace 
area,  and  the  prompt  for  the  next  line  of 
data  wU]  appear.  But  if  MLX  detects  a 
typing  error,  you'U  hear  a  low  buzz  and 
see  an  error  message.  The  line  will  then 
be  redisplayed  for  editing. 

Invalid  Characters  Banned 

Only  a  few  keys  are  active  while  you're 
entering  data,  so  you  may  have  to  un- 
learn some  habits.  You  do  not  type  spaces 
between  the  columns;  MLX  automatical- 
ly inserts  these  for  you.  You  do  not  press 
RETURN  after  typing  the  last  number  in 
a  line;  MLX  automatically  enters  and 
checks  the  line  after  you  type  the  last 
dig?*. 

Only  the  numerals  0-9  and  the  let- 
ters A-F  can  be  typed  in.  If  you  press  any 
other  key  (with  some  exceptions  noted 
below),  youT!  hear  a  warning  buzz.  To 
simplify  typing,  a  numeric  keypad  is  now 
incorporated  in  the  listing.  The  keypad  is 
active  only  while  entering  data.  Address- 
es must  be  entered  with  ^e  normal  letter 
and  number  keys.  The  figure  below 
shows  the  kej^ad  configuration: 
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MLX  checks  for  transposed  charac- 
ters. If  you're  supposed  to  type  in  AO  and 
instead  enter  OA,  MLX  will  catch  your 
mistake.  There  is  one  error  that  can  slip 
past  MLX:  Because  of  the  checksum  for- 
mula used,  MLX  won't  notice  if  you  acci- 
dentally type  FF  in  place  of  00,  and  vice 


versa.  And  there's  a  very  slim  chance  that 
you  could  garble  a  line  and  still  end  up 
with  a  combination  of  characters  that 
adds  up  to  the  proper  checksum.  How- 
ever, these  mistakes  should  not  occur  if 
you  take  reasonable  care  while  entering 
data. 

Editing  Features 

To  correct  typing  mistakes  before  finish- 
ing a  line,  use  the  INST/DEL  key  to 
delete  the  character  to  the  left  of  the 
cursor.  (The  cursor-left  key  also  deletes.) 
If  you  mess  up  a  line  really  badly,  press 
CLR/HOME  to  start  tiie  line  over.  The 
RETURN  key  is  also  active,  but  only 
before  any  data  is  typed  on  a  line.  Press- 
ing RETURN  at  this  point  returns  you  to 
the  command  menu.  After  you  type  a 
character  of  data,  MLX  disables  RETURN 
until  the  cursor  returns  to  the  start  of  a 
line.  Remember,  you  can  press  CLR/ 
HOME  to  quickly  get  to  a  line  number 
prompt. 

More  editing  features  are  available 
when  correcting  lines  in  which  MLX  has 
detected  an  error.  To  make  correctior«  in 
a  line  that  MLX  has  redisplayed  for  edit- 
ing, compare  the  line  on  the  screen  with 
the  one  printed  in  the  listing,  then  move 
the  cursor  to  the  mistake  and  type  the 
correct  key.  The  cursor  left  and  right  keys 
provide  the  normal  cursor  contaxils.  (The 
IMST/DEL  key  now  works  as  an  alterna- 
tive cursor-left  key.)  You  cannot  move 
left  beyond  the  first  character  in  the  line. 
If  you  try  to  move  beyond  the  rightmost 
character,  youTl  reenter  the  line.  During 
editing,  RETURN  is  active;  pressing  it 
tells  MLX  to  recheck  the  line.  You  can 
press  the  CLR/HOME  key  to  dear  the 
entire  line  if  you  want  to  start  from 
scratch,  or  if  you  want  to  get  to  a  line 
number  prompt  to  use  RETURN  to  get 
back  to  die  menu. 

Display  Data 

The  second  menu  choice,  DISPLAY 
DATA,  examines  memory  and  shows  the 
contents  in  the  same  format  as  the  pro- 
gram listing  (including  the  checksum). 
When  you  press  D,  MLX  asks  you  for  a 
starting  address.  Be  sure  that  the  starting 
address  you  give  corresponds  to  a  line 
number  in  the  listing.  Otherwise,  the 
checksum  display  vrill  be  meaningless. 
MLX  displays  program  lines  until  it 
reaches  the  end  of  the  program,  at  which 
point  the  n:\enu  is  redisplayed.  You  can 
pause  the  display  by  pressing  the  space 
bar.  (MLX  finishes  printing  the  current 
line  before  halting.)  Press  space  again  to 
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Software  discounters 

V-/  I        /»  IVI  L.  i\  I  V^/»  •   Frpp  chSnnino  nn  nrHprs 


S.D.  of  A. 


For  Orders  Only- 1-800-225-7638 
PA  Orders- 1-800-223-7784 
Customer  Service  412-361-5291. 


•  Free  shipping  on  orders  ^ 
over  $100  in  continental  USA 

•  No  Surcharge  for  VISA/MasterCard 

•  Your  card  is  not  charged  until  we  ship 


inFoconv 

Eight  tales  of 
Cliches, 

Spoonerisms,  and 
other  Verbal 
Trickery. 

Nord  and  Bert 

Couldn't  Make 

Head  or  Tail  of 

List  $39.95 

Our  Discount  Price  $24. 


rNordaiidBertr 

^Couldn'tMake- 
'HeadorlailoflF 


ACCESS 

lOlh  Frame  Bowling  .  .S29 
World  Oiii 

Leader  Board $J9 

ACCOLADE 

Ace  of  Aces   S24 

Hardball S24 

Mean  la  Coif S3a 

Mean  m  famous 
Cours*  Disks  93  &  4  $23 

Mini-PutI $24 

Pinball  Wizard $21 

Test  Drive S24 

ACTIVISION 

Black  lack  Academv  •  ■  S24 

Hacker $9.S8 

Hacker  2 $24 

Might  and  Magic   .  . .  .$32 

Portal  $27 

Postcards $16 

Shanghai $23 

ARTWQRX 

Bridie  5.0 $19 

Strip  Poker $25 

Data  Disk  #1  Female  .$14 
Data  Disk  42  Male  .  .  .$14 
Data  Disk  «3  Female  .$14 
International  Hockey  .$19 
Linkworrf  Languages; 

Dutch $19 

French $19 

German $19 

Jtalian ....$19 

Russian $19 

Spanish $19 

AVANTAGf 

Project  Space  Station$9.e8 


BRODERBUND 

Ancient  An  of  War.  .  .$27 
Ancient  Art  of 

War  at  Sea $27 

Bank  Si.  Writer  Plus  .  .549 
Carmen  San  Diego 

USA $29 

World $2S 

Karateka $21 

Lodertinncr $23 

Memory  Male $44 

Print  Shop S36 

P.S.  Companion   S32 

P.S.  Graphics 

Holiday  Edition $21 

P.S.  Graphics 

Library  31  92.  .  .$21  Ea. 
Search  &  Destroy   . .  $9.88 

Toy  Shop $32 

Type! $30 

CENTRAt  POINT 

Copy  2 $23 

PC  Option  Board   . .  .  .$79 

PC  Tools  Delute $47 

DAC 

Dae  Easy  Accounting  2.0$65 
Dae  Easy  Payroll  2.0  ,$44 
DATA  EAST 

Commando $24 

Ikari  Warriors  ......  .$24 

Tag  Team  Wrestling  .  .$24 
DAVIDSON 

Algeblaster  S30 

Grammar  Cremlins. .  .$30 

Math  Blaster  Plus $30 

Spell  II    $30 

Word  Attack $30 


Bpyx 


shoot  the  tube 

while  surfing  at 

Santa  Cruz,  do  hand 

plants  skateboarding 

in  Hollywood,  & 

cruise  Venice  in 

roller  skates. 

California  Games 

List  $39.95 

Our  Discount  Price  $24 


Our  largest  selection  of  software 
ever  for  your  IBM  or  Compatible! 


ELECTRONIC  ARTS 
Software  Classic  Series; 
Adventure  Const.  5et$9.B8 
Lords  of  Conquest  .  ,  $9.8S 

One-on-Onc $9.88 

Pinball  Const.  Set  . .  $9.88 
Seven  Cities  Gold  .  .$9,88 
Super  Boulder  Dash. $9.38 
ELECTRONIC  ARTS 

Arctic  Fox $23 

Bard's  Tale $32 

Chessmaster  2000  .  .  .  .$26 
Chuck  Yeager's  AFT  ..$26 
Earl  Weaver  Baseball  .$26 

Empire .$32 

Hunt  for  Red  October  $26 

Instant  Pages $32 

Marble  Madness $23 

Metropolis S26 

Patton  ys.  Rommel  ...  $26 

Pegasus $26 

Rockford $36 

Scrabble   .. $26 

Slarfleet  2 $35 


Stationfall $24 

The  lurking  Horror  . .  $24 

Zork  1 $24 

Zortt  Trilogy $44 

INTRACORP 

Bumper  Slicker  Maker  $32 
Button  &  Badge  MakerS}2 
LEARNING  COMPANY 

Math  Rabbit $24 

Reader  Rabbit $24 

Think  Quick! $32 

Writer  Rabbit S32 

MECA 

Andrew  Tobias;  Managing 

Your  Money  2.0    .  ,$129 
Financial  Calculator  ■  .$29 
MICRO-ILLUSIONS 
Romantic  Encounters  at 

"The  Dome" $24 

MlCROPOSf 

F-15  Strike  Eagle $21 

Gunship ,,,.,,.,.,,, $32 

Pirates $2S 

Silent  Service  .$21 


inFocom 

The  crown  jewels 
have  been  stolen 
from  the  Tower  of 
London.  With  only 
48  hours  left  to  solve 
the  crime,  the  Prime 
Minister  calls  on .  .  . 

Sherlock  Holmes 

List  $39.95 

Our  Discount  Price 


Starllight S32 

What  They  Don't  Teach  at 
Hatvad  Bisiness  Schoo!$32 

World  Tour  Golf $32 

EPYX 

California  Games  ,  ,  ,  .$24 

Create  A  Calendar  ■ .  .$19 

Destroyer  .  . ,  , 524 

P.S.  Graphics  Scrapbook; 

#1  Sports    $9.88 

«2  Olf  The  Wall,  ,$9.88 

#3  School $9.88 

Street  Sports  Bas](etball$24 
Sub  Battle  Simulator .  ,$24 
Summer  Games  2  . . .  ,$14 

Winter  Games $14 

World  Games $24 

CAMESTAR 

Champ.  Baseball , , . ,  ,$24 

Champ.  Basketball   .  . .  $24 

GFL  Ch.  Football    $24 

Star  Rank  Bo»ing  2..  ,$24 
HI-TECH  EXPRESSIONS 

Award  Ware  $9.88 

INFOCOM 

Beyond  Zork $32 

bureaucracy $24 

nltchhikers  Guide $19 

Leather  Goddesses  . .  .$24 


MINDSCAPE 

Balance  of  Power $32 

Bop  &  Wrestle $19 

Crossword  Magic   ....  $30 
E>elender  of  the  Crown$24 

Caunllcl S24 

Indoor  Sports $19 

Iniiltralor  2 $24 

Into  the  Eagle's  Nest.  .$23 
Perfect  Score  SAT-:  ..  .$44 

S.D.I $24 

Super  Star  Ice  Hockev  $24 
MONOGRAM 

Dollars  &  Seme $109 

ORIGIN 

Moebius  $39 

Ogre $19 

Ultima  I  or  3 $2S  Ea. 

Ultima  4 $39 

PARAGON 

Master  Ninia $23 

SHARE  DATA 

Family  Feud $8,88 

Jeopardy $8.88 

Wheel  of  Fortune  ,  .$8.88 
SIERRA 

Black  Cauldron $24 

Donald  Duck's 
Ptaygrouiyd. $19 


Bpyx 

Design  your  own 

daily,  weekly, 

monthly  and  annual 

calendars. 

CREATE  A 

CALENDAR 

List  $29.95 

Our  Discount  Price  $19     256K;  CGA 


King's  Quest 

1,  2  or  3 $32  Ea. 

Leisure  Suit  Larry  ■  -  •  $24 
Mickey's  Space  Adv. .   $19 

Mother  Goose $19 

Police  Quest $32 

Smart  Money   $49 

Space  Quest  1  or  2$32  Ea, 
3-D  Helicoi>let  Sim.  .,$32 

Theider $23 

Winnie  the  Pooh $19 

SIMOf^  a.  SCHUSTER 

Typing  Tutor  4 $32 

SIR  TECH 

Deep  Space $24 

Wizardry  Series; 
Knighl  of  Diamonds  $32 
Legacy  of  Lylgamin  ,$32 
Proving  Ground . . .  .532 
SOFTWARE 
SIMULATIONS 
Pure  Stat  Baseball ....  $24 
Pure  Slat  College 

Basketball $24 

SPECTRUM  HOLOBYTE 

Fakon SJ2 

Gato $9.88 

Solitaire  Royale $23 

SPINNAKER 

Backgammon $14 

T-Shirt  Shop  ^ $30 

SPRINGBOARD 

Certificate  Maker $24 

C,M.  Library  #1    $19 

Early  Games $21 

Easy  as  ABC $24 

Newsroom  Pro $49 


N,R,  Clip  Art  *1  or  f3$19  Ea. 

N.R.  Clip  Art  t2   $24 

SSi 

Gettysburg S36 

Kampfgruppe $36 

Phanlasie $24 

Realms  of  Darkness  . .  .$24 

Rings  of  Zilfin $24 

Roadwar  Europa $24 

Roadwar  2000 $24 

Shard  oi  Spring $24 

Wizard's  Croyvn $24 

THUNDER  MOUNTAIN 

Pac  Man $6.aB 

Top  Gun $6-88 

TIMEWORK5 

Dala  Manager $39 

Evelyn  Wood  Reader  .  .$39 

Partner $39 

Swiftcalc  w/Sideways  .  $39 
Sylvia  Porter's  Financial 

Planner $59 

Word  Writer $39 

UNISON  WORLD 

Fonts  &  Borders $23 

newsmaster $59 

Piinlnuster  Phis $36 

Art  Gallery  1  or  2  $19  Ea. 
WEEKLY  READER 
Stkkybear  Math  1  ar2$23Ea. 
Stlckybear  Numbers  .  ,  .  $23 
Stickybeaj  Reading  .  .  ,  .  $23 
Stlckybear  Spell  Gral]ber$2} 

Stlckybear  Typing $23 

WINDHAM  CLASSICS 

Treaaire  Island $9.88 

Wiiard  of  Oi $9.B8 


Air  to  air  &  air  to 
ground  combat 
flight  simulation. 
Starglider 


List  $44.95 

Our  Discount  Price  $29. 


256K; 


P.O.  BOX  111327— DEPT.  CP— BLAWNOX,  PA  15238 


■Pleait  Read  The  Following  Ordering  Tefms  &  Conditions  Care^uily  Before  Placing  Your  Ordrr;  Orders  with  ca^hiefs  check  or  money  order  shipped  immediately  on  in  slock  itemsl 
Personal  &  Company  checks,  allow  3  wcek»  clearance.  No  C.O.D.'s!  Shipping:  Conlinenidl  U.S.A.-Order&  under  $100  add  $3;  free  shippmg  on  ordef^  over  SlQD.  AK,  HI,  FPO,  APO>add 
S5  on  all  orders.  Canad^i  &  Puerln  Ktco-add  SlD  on  all  orders.  Sorry,  no  otner  tnternalional  orders  accepted!  PA  residents  add  6"o  sales  lax  on  the  lolat  amount  of  order  including 
shipping  charter.  CUSTOMER  SERVICE  HOURS:  Mon,-Fri.  9  AM-5:30  PM  Eastern  Time.  REASONS  fOR  CALLING  CUSTOMER  SEHVICE-412.36K52S1  (DSlatus  oi  order  or  back  order 
t2)if  any  merchandise  purchased  wilhin  60  days  from  S.D. of  A.  is  defective^  please  call  for  a  return  authorization  number.  We  will  not  process  a  return  without  a  return  auth.  #!  Defective 
mefchandise  will  be  replaced  with  the  same  merchandise  only.  Other  returns  subject  to  a  15%  restocking  charge!  After  60  days  from  your  purchase  date,  ptease  refer  to  Ihe  warranty 
included  with  Ihe  product  purchased  &  return  directly  to  the  manufacturer.  Customer  service  will  not  accept  coiWl  calls  or  calls  on  S^D.of  A.'5  aOCi*  order  lines!  ORDER  LINE  HOURS: 
Mon.'Fri.  9  AMo:3Q  PM,  SAT  10  AM^  PM  EASTERN  TIME.  Because  this  ad  had  to  be  written  2-3  mos.  before  il  was  published,  prices  &  availability  are  subject  to  change!  New  lilies 
are  arriving  dailyl  Please  call  for  rnore  information.  *APPLE  OWNERS:  Look  for  our  ads  each  month  In  Nibble  &  Incider! 


restart  the  display.  To  break  out  of  the 
display  and  get  back  to  the  menu  before 
the  ending  address  is  reached,  press 
RETURN. 

Other  Menu  Options 

Two  more  menu  selections  let  you  save 
programs  and  load  them  back  into  the 
computer.  These  are  SAVE  HLE  and 
LOAD  FILE;  their  operation  is  quite 
straightforward.  When  you  press  S  or  L, 
MLX  asks  you  for  the  filename.  You'll 
then  be  asked  to  press  either  D  or  T  to 
select  disk  or  tape. 

YouH  notice  the  disk  drive  starting 
cund  stopping  several  times  during  a  load 
or  save.  Don't  panic;  this  is  normal  be- 
havior. MLX  opens  and  reads  from  or 
writes  to  the  file  instead  of  using  the 
usual  LOAD  and  SAVE  commands.  Disk 
users  should  also  note  that  the  drive 
prefix  0;  is  automatically  added  to  the 
filename  (line  750),  so  this  should- not  be 
included  when  entering  the  name.  This 
also  precludes  the  use  of  @  for  Save- 
with-Replace,  so  remember  to  g?ve  each 
version  you  save  a  different  name. 

Remember  that  MLX  saves  the  en- 
tire workspace  area  from  the  starting  ad- 
dress to  the  ending  address,  so  the  save 
or  load  may  take  longer  than  you  might 
expect  if  you've  entered  only  a  small 
amount  of  data  from  a  long  listing.  When 
saving  a  partially  completed  listing,  make 
sure  to  note  ihe  address  where  you 
stopped  typing  so  you'll  know  where  to 
resume  entry  when  you  reload. 

MLX  reports  the  standard  disk  or 
tape  error  messages  if  any  problems  are 
detected  during  the  save  or  load.  (Tape 
users  should  bear  in  mind  that  Commo- 
dore computers  arc  never  able  to  detect 
errors  during  a  save  to  tape.)  MLX  also 
has  tiiree  special  load  error  messages: 
INCORRECT  STARTING  ADDRESS, 
which  means  the  file  you're  trying  to 
load  does  not  have  the  starting  address 
you  specified  when  you  ran  MLX;  LOAD 
ENDED  AT  address,  which  means  the  file 
you're  trying  to  load  ends  before  the 
ending  address  you  spedfied  when  you 
started  MLX;  and  TRUNCATED  AT 
ENDING  ADDRESS,  which  means  the 
file  you're  trying  to  load  extends  beyond 
the  ending  adcCess  you  specified  when 
you  started  MLX.  If  you  see  one  of  these 
messages  and  feel  certain  that  you've 
loaded  the  right  fUe,  exit  and  rerun  MLX, 
being  careful  to  enter  the  correct  starting 
and  ending  addresses. 

The  QUIT  menu  option  has  the  ob- 
vious effect — it  stops  MLX  and  enters 
BASIC,  The  RUN/STOP  key  is  disabled, 
so  the  Q  option  lets  you  exit  the  program 
without  turning  off  the  computer.  (Of 
course,  RUN/STOP-RESTORE  also  gets 
you  out.)  Youll  be  asked  for  verification; 
press  Y  to  exit  to  BASIC,  or  any  other  key 
to  return  to  the  menu.  After  quitting,  you 


can  type  RUN  again  and  reenter  MLX 
without  losing  your  data,  as  long  as  you 
don't  use  the  dear  workspace  option. 

rtie  Finished  Product 

When  you've  finished  typing  all  the  data 
for  an  ML  program  and  saved  your  work, 
you're  ready  to  see  the  results.  The  in- 
structions for  loading  and  using  the  fin- 
ished product  vary  from  program  to 
program.  Some  ML  programs  are  de- 
signed to  be  loaded  and  run  like  BASIC 
programs,  so  all  you  need  to  type  is 
LOAD  "filename", Z  for  disk  or  LOAD 
"filename"  for  tape,  and  then  RUN.  Such 
programs  wiU  usually  have  a  starting 
address  of  0801  for  the  64.  Other  pro- 
grams must  be  reloaded  to  specific  ad- 
dresses vflth  a  command  such  as  LOAD 
"filename", 8,1  for  disk  or  LOAD  "file- 
name",\,\  for  tape,  then  started  with  a 
SYS  to  a  particular  memory  address.  On 
the  Commodore  64,  the  most  common 
starting  address  for  such  programs  is 
49152,  which  corresponds  to  MLX  ad- 
dress COOO.  In  either  case,  you  should 
always  refer  to  the  article  which  accom- 
paiues  the  ML  listing  for  information  on 
loading  and  running  the  program. 

An  Ounce  Of  Prevention 

By  the  time  you  finish  typing  in  the  data 
for  a  long  ML  program,  you  may  have 
several  hours  invested  in  the  project. 
Don't  take  chances — use  our  "Automatic 
Proofreader"  to  type  the  new  MLX,  and 
then  test  your  copy  thoroughly  before  first 
using  it  to  enter  any  significant  amount  of 
data.  Make  sure  all  flie  menu  options 
work  as  they  should.  Enter  fragments  of 
the  program  starting  at  several  different 
addresses,  then  use  the  IMsplay  option  to 
verify  that  the  data  has  been  entered 
correctly.  And  be  sure  to  test  the  Save 
and  Load  options  several  times  to  ensure 
that  you  can  recall  your  work  fi-om  disk 
or  tape.  Don't  let  a  simple  typing  error  in 
the  new  MLX  cost  you  several  nights  of 
hard  work. 


MLX  For  Commodore  64 

SS  .10  REM  VERSION  1.1.:  LINES  8 
30,950  MODIFIED,  LINES  4 
85-487  ADDED 
EK  100  POKE  56,50:CLR:DIM  IN5, 

I,J,A,B,A?,B?,A(7),N5 
DM  .1.10  C4=48:C6=16!C7=7:Z2=2:Z 
4=254 :Z5=255!Z6=256:Z7= 
127 

CJ  120  FA=PEEK(45)+Z6*PEEK(46) 

i BS=PEEK( 55 ) +26*PEEK( 56 
) :H5="0123456789ABCDEF" 

SB  130  R5=CKR$(13):L5="{LEFT}" 
!S?="  ":D$=CHR?(20)tZ?= 
CHR5(0) iTS="ll3  RIGHT}" 

CQ    140   SD=54272iFOR    I=SD   TO   SD 
+2  3: POKE    1,0 :NEXT: POKE 
{ SPACE }SD+24, 15 :POKE    78 
8,52 

FC  150  PRINT" [CLR1"CHRS (142 )CH 
R?C8):P0KE   53280,15 sPOK 


E    53281,15 
EJ    160    PRINT    TS"     {RED}(RVSj 

{2  SPACES jga  @3 

12  SPACES] "SPCC 28)" 

£2  SPACES} [OFF} {BLU J  ML 
X  II  (REDllRVS) 
{2  SPACES }"SPC( 28)" 
{12  SPACES} (BLU)" 
FR  170  PRINT" (3  DOWN] 

(3  SP ACES ) COMPUTE  1  ■ S  MA 
CHINE  LANGUAGE  EDITOR 

1 3  DOWN}" 

JB  180  PRINT "(BLK) STARTING  ADD 
RESSg4|" ; tGOSUB300 :SA=A 
D:GOSUB1040:IF  F  THEN18 
0 

GF  190  PRINT "{BLK] {2  SPACES }EN 
DING  ADDRESSE4i"; sGOSUB 
300 !EA=AD:GOSUB1030 : IF 
( SPACE )F  THEN190 

KR  200  INPUT"{3  DOWN } (BLK IC LEA 
R  WORKSPACE  [Y/N]g4§";A 
SsIF  LEPT?(A$,1)<>"Y"TH 
EN220 

PG  210  PRINT" 12  DOWN}! BLU} WORK 

ING "!sFORI=BS  TO  BS+ 

EA-SA+7;POKE  I,0:NEXT:P 
RINT"DONE" 

DR    220    PRINTTAB{10)"t2    DOWN} 
{BLKltRVSJ    MLX   COMMAND 
{ SPACE  iMEtJU     (DOWN}g4|": 
PRINT    TS"{RVS}E{0FF}NTE 
R    DATA" 

BD    230    PRINT   T$" {RVS}d10FF1iSP 
LAY   DATA": PRINT   T$" 
IRVS)L(0FF)0AD   FILE" 
PRINT    T$"1RVS}S(0PP}AVE 

PILE"!PRINT    T|"{RVS}Q 
lOFF}UIT[2    DQWNKBLKJ" 
GET    A?: IF   A?=N$    THEN250 
A=0:FOH   1=1    TO    5:1?   A5= 
HID$("EDLSQ", 1,1) THEN   A 
=1:1=5 

KEXTtON  A  GOTO420,610,6 
90 , 700 , 280 :GOSUB1060  sGO 
TO250 

PRINT" (RVS}  QUIT  ":INPU 
T"{DOWN}i43ARE  YOU  SURE 
CY/N]";A$:IF  LEFT5(A$, 
1)<>"Y"THEN220 
POKE  SD+24,0:END 
IN5=N$ :AD=0 : INPUTIN5 : I F 
LEN  (  IN$  )  O4THENRET0  RN 

KF    310    BS=IN5!GOSUB320:AD=A:BS 
=HID${IN$,3) :GOSUB320sA 
D=AD*  2  5  6+A :  RETURN 
A=0:FOR   J=l    TO   2 :A9=MID 
$(B5.J,1) :B=ASC(A5)-C4+ 
(A$>"@")*C7jA=A*C6+B 
IF    B<0    OR    B>15    THEN   AD= 
0:A=-1:J=2 
NEXT: RETURN 

a=INT(A/C6) : PRINT  MID$( 
H9,B+1,1); !B=A-B*C6:PRI 
NT  MID5(H5,B+1,1); :RETU 
RN 

A=INT(AD/Z6) :GOSUB3  50!A 
=AD-A*Z6 :GOSUB350 :PRINT 

BE  370  CK=INT(AD/26) tCK=AD-Z4* 
CK+Z5*(CK>Z7) :GOTO390 

PX    380    CK=CK*Z2+25*(CK>Z7)+A 

JC    390    CK=CK+Z5*{CK>Z5) jRETURN 

QS    400    PRINT "{ DOWN jSTARTING    AT 
g43";:GOSOB300:IF    INJo 
N?    THEN  GOSUB1030!lF   F 
{  SPACE  jTHEtJ400 

EX   410    RETURN 

HD    420    PRINT"tRVSj    ENTER    DATA 
{ SPACE )":GOSUB400: IF    IN 
5=N$    THEN220 

JK   430    OPEN3,3:PRINT 

SK   440   POKE19a,0sGOSUB360:IF   F 


JS 

240 

JH 

250 

HK 

260 

FD 

270 

EJ 

280 

EM 

290 

JX 

300 

PP 

320 

JA 

330 

GX 

340 

CH 

350 

RR 

360 
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•''HEN    PRINT    IS^iPHINT" 

{UP} I  5    RIGHT}"} 
6C    450    FOR    1=0    TO    24    STEP    3iB$ 

=S$iFOR  J=l    TO    2  s IF   F   T 
HEN    B?=MID?(INS,I+J,1) 
HA   460    PRINT" (RVS}"B$L$;iIF    I< 

24THEN   PRIST "{OFF}", • 
HD    470    GET   A$iIF  A$=N?    THES470 
FK    480    IF(A5>''/"AKDA5<''!")OR(A 

$>"e"ANDAS<"G")THEN540 
GS    485    A=-(A?="H")-2*(A9='*,'')- 

3*(A?=-".")-4*CA5  =  '7")-5 

*(A5-"J")-6*(A9="K") 
FX   486    A=A-7*(A5="L")-8*CA?="i 

" )-9* (A$="U" )-10*(A?="I 

" ) -11* (A5-"0" )-12* (A$=" 

P") 
CM    487    A=A-13*{A$=S$) lIF   A  THE 

N   A$=HID5("ABCD123E456F 

0",A,1)5GOTO    540 
MP    490    IF    AS"R$    AND((I=0)AND(J 

=l)OR   F)THEN    PRINT    B? ; ! 

■T=2  sNEXTi  1=24  SGOTO550 
KC    500    IF   A5="tH0ME]"    THEN    PRI 

NT    B5jJ=2:NEXT!l=24:NEX 
T8F=0sGOTO440 
MX    510    IF (A$=" {RIGHT] ")ANDF  TH 

ENPRINT    B9LS;!GOTO540 
GK    520    IF    A$<>L5    AND   A9<>D$    OR 

((I=0JAND(J=1))THEN   COS 

Ufll060sGOTO470 
HG    530    A?=L5+S5+LS5PRINT    B5LS ; 

:J=2-JslF  J    THEN    PRINT 

i SPACE iL5; : 1=1-3 
QS    540    PRINT    ASfsNEXT    JlPRINT 

[ SPACE ]S$; 
PM   550    NEXT    I:PRINTiPRINT"{UP) 

{5    RIGHT3",-!lSPUT#3,IN? 

:IF    IN5=N?    THEN   CLOSES! 

GOTO220 
QC    560    FOR    1=1    TO    25    STEP3  8B?= 

MID?(IN$,I)sGOSUB320!lF 
I<25    THEN   GOSUB3a0:A(I 

/3)=A 
PK    570    NEXT:  IF  AOCK   THEN   GOSU 

B1060:PEINT"{BLK}{RVS} 

{SPACE) ERROR:    REENTER   L 

INE    E43"!F=liGOTO440 
HJ    580    GOSUB1080:B=BS+AD-SAsFO 

R    1=0   TO    7:P0KE   B+I,A(I 

) :NEXT 
QQ    590   AD=AD+8:IF   AD>EA   THEN    C 

LOSE3  jPRIHT " (DOWN } {BLU} 

**    END   OF    ENTRY    **{BLK3 

{2    DOWN} ":GOTO700 
GQ    600    F=0:GOTO440 
QA  610    PRINT"{CLR)(D0WN}{RVS} 

{SPACE} DISPLAY   DATA    "iG 

OSUB400:IF    IK$=N$    THEK2 

20 
RJ    620    PRINT" {down} {BLU jPRESSi 
{RVS} SPACE (OFF}    TO   PAU 

SE,     {RVS} RETURN {OFF}    TO 
BREAK|4i{D0WN)" 
KS    630   GOSUB360:B=BS+AD-SA!FOR 

I=BTO    B+7iA=PEEK(I) :GOS 

UB350SGOSUB3S0IPRINT    S$ 

CC   640    NEXTtPRINT"{RVS)";«A-CK 

:GOSUB350iPRINT 
KH    650    P=l!AD=AD+8!lF   AD>EA  TH 

ENPRINT "{DOWN} {BLU}**    E 

ND    OF   DATA    ** " iGOTO220 
KC    660    GFT    A$!lF  A$=R5    THEN   GO 

SUB1080IGOTO220 
EQ    670    IF    A5=S5    THEN    F=F+1 iGOS 

UB1080 
AD    680    ONFGOTO630,660,630 
CM   690    PRINT" {DOWN} {RVS}    LOAD 

{SPACE]DATA    "tOP=l!GOTO 

710 
PC    700    PRINT "(DOWN} {RVS}    SAVE 


{SPACE} FILE    "iOP=0 
EX    710    IN$=N$":  INPUT  "{DOWN  3  FILE 

NAHEf4i";IS?!lF    IN$=N5 

{ SPACE }THEN220 
PR    720    F=0tPRINT"{DOWN}{BLK) 

{KVS}T{OFF)APE    OR    (RVS) 

D{0FF)ISK>    E43"f 
FP    730    GET   A$tIF   A$="T"THEK   PR 

INT "T { DOWN  3 " I GOTO880 
HQ    740    IF   A$<>"D"THEN730 
HH    750    PRINT"D{D0WN3":0PEN15,8 

,15, "10! "lB=EA-SAsIN$=" 

0:"+IN?iIF  OP  THEN310 
SQ  760  OPEN  1,8,8,IN5+",P,W"!G 

OSUB860:rF  A  THEN220 
FJ  770  AH=INTCSA/256)sAL=SA-(A 

H*256)!PRINT*1,CHR?(AL) 

fCHRS(AH); 
PE    780    FOR    1=0    TO    B!PRINTfl,CH 

R$(PEEK{BS+I)); !lF    ST    T 

HEH300 
PC    790    NEXTiCL0SEX:CL0SE15!GOT 

O940 
GS    800    GOSUB1060:PEINT"{DOWN} 

{elk) ERROR    DURING    SAVEj 

643 " :GOSUB860  SGOTO220 
HA    810    OPEN    1,8,8,INS+",P,R":G 

OSUBe60!lF  A  THEN220 
GE    820    GET*l,A?,fl?sAD=ASC(A?+Z 

?)+256*ASC(BS+Z?)iIF   AD 

OSA   THEN   F=liGOTO850 
RX    830    FOR    1=0    TO   B*GET*l,A$iP 

OKE   BS+I,ASC(A?+Z$) iIF( 

I<>B)AND   ST   THEN   F=2iAD 

=IiI=B 
FA  840    NEXTsIF   ST<>64    THEN    F=3 
FQ    850    CLOSEl ICLOSEIS lON   ABS(F 

>0)+l    GOTO960,970 
SA   860    INPUT* 15, A, A? tIF   A  THEN 
CLOSEl SCL0SE15  sGOSUB10 

60sPElNT"{RVS}ERROR!     "A 

5 

GQ    870    RETURN 

EJ    880    POKEie3,PEEK{FA+2) tPOKE 

187, PEEK (FA+3) tPOKElSS, 

PEEKCFA+4) :IFOP=0THEN92 

0 
HJ    890    SYS    63466:IF(PEEK{783)A 

NDDTHEN    GOSUB1060!PRIN 

T" {DOWN) {RVS)    FILE    HOT 

{ SPACE }FOUND    ":GOTO690 
CS    900    AD=PEEK(S29)+256*PEEK(8 

30)iIF  ADOSA  THEN   F=lt 

GOTO970 
SC    910    A=PEEK(831)+256*PEEK(S3 

2)-l |F=F-2*(A<EA)-3*(A> 

EA) jAD=A-AD!GOTO930 
KM  920  A=SAsB=EA+l:GOSUB1010:P 

OKE780,3:SYS  63338 
JF  930  A=BS:B=BS+(EA-SA)+lsGOS 

UB1010ION    OP    GOTO950:SY 

S    63591 
AE    940    GOSUB1080 {PRINT "{BLU}** 
SAVE    COMPLETED    **"«GOT 

O220 
XP    950    POKE147,0:SYS    63562SIF 

{ SPACE )ST>0   THEN97a 
FR    960    GOSUB1080:PRINT"{BLU3** 
LOAD    COMPLETED    **"!GOT 

O220 
Dpi   970    GOSUB1060iPRINT"{BLK3 

{RVS3ERR0R    DURING    LOADi 

{DOWN)i4§":ON    F    GOSUB98 

0 , 990 , 1000 1GOTO220 
PP    980    PRINT "INCORRECT    STARTIN 

G   ADDRESS    ( " ; SGOSUB360 I 

PRINT" )"s RETURN 
GR   990    PRINT"LOAD    ENDED    AT    " ;  : 

AD=SA+AD! GOSUB360  jPRINT 
D$: RETURN 
FD    1000    PRINT "TRUNCATED    AT    END 
ING    ADDRESS" I  RETURN 


EX    1010    AH=INT{A/256) !AL=A-(AH 

*256) :POKE193,AL:POKEl 

94, AH 
FF    1020   AH=INT(B/256) >AL=B-(AH 

*256) tPOKE174,ALtPOKEl 

75, AH (RETURN 
FX    1030    IF    AD<SA    OR   AD>EA   THEN 

1050 
HA   1040    IF(AD>511    AND  AD<40960 

)0R{AD>49151    AND   AD<53 

243) THEN   GOSUB1088:F=0 

: RETURN 
HC    1050    GOSUB1060 SPRINT" {RVS) 

{SPACE) INVALID  ADDRESS 
{ DOWN) t  BLK } " I F=l s  BETU 

RN 
AR   1060    POKE    SD+5,31:POKE    SD+6 

,208:POKE    SD,240!POKE 

{SPACE}SD+1,4jP0KE    SD+ 

4,33 
DX    1070    FOR   S=l    TO   100iNEXTsGO 

TO1090 
PF    1080    POKE    SD+5,8!P0KE    SD+6, 

240 SPOKE   SD,0:POKE    SD+ 

1,90!POKE   SD+4,17 
AC    1090    FOR   S=l    TO    100iNEXT>PO 

KE    SD+4,0tPOKE    SD,0iPO 

KE    SD+ 1,0: RETURN 


COLOR  PRINTER  RIBBONS 

rnimic         "^D           BLUE          GREEN 

CULOHS:     aRoyy,^      PURPLE      YELLOW 

RRibau                PrinEich 

BiKk 

Color 

Hwrt 

Appis  Imagewriter  l/ll 

3.95 

4.95 

8.50 

BfOlhw  M1009 

4.9S 

5.95 

7.00 

Citizen  120O 

5,00 

- 

- 

Commodore  MPS  801 

4.15 

4.75 

5.76 

CommodorB  MPS  802 

5.75 

6.75 

- 

ComiTiiXlOre  MPS  803 

4.95 

5.95 

7.00 

Commodore  MPS  1000 

3.60 

4.25 

6.75 

Commodore  MPS  1200 

5.00 

- 

- 

Epson  AP  80 

5.25 

8.50 

7.95 

Epson  LX  80/90 

3.60 

4.25 

6.75 

Epson  MX/FXmX  80 

3.75 

4.25 

6.75 

Okidata  82/92/93 

1.75 

2.25 

4.25 

Okidats  182/192 

6.00 

9.0O 

- 

Panasonic  KX-P1090 

6.50 

9.75 

- 

Sflikosha  SP  800 

5.25 

6.50 

7.95 

Star  SG  10 

1,75 

2.25 

4.50 

Star  NX10/NL10 

5.00 

6.00 

7.95 

T-SWrt  Nbbom  tHMt  Trwiifwl- 

Call  For  Price  &  AvallabilitY. 

For  ribbofia  r>ot  listed   above,   cell  for  price  end 

aveileblliiY.  Price  end  •pecificetione  ate  subject  to 

chenge  wiihDui  notice. 

Minimum  ocdaf  is  $25.00.  Shipping  &  handling  $3.50. 

UPS  Ground.  Add  S2.00  C.O.D.  additional.  Illinois 

reskients  add  6.2S%  tax.  MasterCard  and  Vita 

sccapted.. 

RENCO  COMPUTER  PfBNTEft  SUPPUES 

P.O.  Box  475,  Mantano.  IL  60950  U.S.A. 

1  -800-522-6922       8 1 5-468-808 1 
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WlM  \f  Machine  Language  Entry  Program 


For  Apple 

Tim  Victor,  Editorial  Prcgrommer 


To  make  it  easier  to  enter  machine  language 
programs  into  your  computer  without  ty- 
pos, COMPUTE!  is  introducing  its  "MLX" 
entry  program  for  the  Apple  U  series.  It's 
our  best  MLX  yet.  It  runs  on  the  U,  11+,  lie, 
and  Ik,  and  with  either  DOS  3.5  or 
ProDOS. 


A  machine  language  (ML)  program  is 
usually  listed  as  a  long  series  of  num- 
bers. It's  hard  to  keep  your  place  and 
even  harder  to  avoid  making  mistakes  as 
•you  type  in  the  listing,  since  an  incorrect 
line  looks  almost  identical  to  a  correct 
one.  To  make  error-free  entry  easier, 
COMPUTE!  generally  lists  ML  programs 
for  Commodore  and  Atari  computers  in 
a  format  designed  to  be  typed  in  with  a 
utility  called  "MLX."  The  MLX  program 
uses  a  checksum  system  to  catch  typing 
errors  almost  as  soon  as  they  happen. 

Apple  MLX  checks  your  typing  on 
a  line-by-line  basis.  It  won't  let  you 
enter  invalid  characters  or  let  you  con- 
tinue if  there's  a  mistake  in  a  line,  it 
won't  even  let  you  enter  a  line  or  digit 
out  of  sequence.  Best  of  ail,  you  don't 
have  to  know  anything  about  machine 
language  to  enter  ML  programs  with 
MLX.  Apple  MLX  makes  typing  ML 
programs  almost  foolproof. 

Using  Apple  MLX 

Type  in  and  save  some  copies  of  Apple 
MLX  on  disk  (you'll  want  to  use  MLX  to 
enter  future  ML  programs  in  COM- 
PUTE!). It  doesn't  matter  whether  you 
type  it  in  on  a  disk  formatted  for  DOS 
3.3  or  ProDOS.  Programs  entered  with 
Apple  MLX,  however,  must  be  saved  to 
a  disk  formatted  with  the  same  operat- 
ing system  as  Apple  MLX  itself. 

If  you  have  an  Apple  He  or  lie, 
make  sure  that  the  key  marked  CAPS 
LOCK  is  in  the  down  position.  Type 
RUN.  You'll  be  asked  for  the  starting 
and  ending  addresses  of  the  ML  pro- 
gram. These  values  vary  for  each  pro- 
gram, so  they're  given  at  the  beginning 
of  the  ML  program  listing  and  in  the 
program's  accompanying  article.  Find 
them  and  type  them  in. 

The  next  thing  you'll  see  is  a  menu 
asking  you  to  select  a  function.  The  first 
is  (E)NTER  DATA.  If  you're  just  start- 
ing to  type  in  a  program,  pick  this.  Press 
the  E  key,  and  the  program  asks  for  the 
address  where  you  want  to  begin  enter- 
ing data.  Type  the  first  number  in  the 


first  line  of  the  program  listing  if  you're 
just  starting,  or  the  line  number  where 
you  left  off  if  you've  already  typed  in 
part  of  a  program.  Hit  the  RETURN  key 
and  begin  entering  the  data. 

Once  you're  in  Enter  mode,  Apple 
MLX  prints  the  address  for  each  pro- 
gram line  for  you.  You  then  type  in  all 
nine  numbers  on  that  line,  beginning 
with  the  first  two-digit  number  after  the 
colon  (:).  Each  line  represents  eight 
bytes  and  a  checksum.  When  you  enter 
a  line  and  hit  RETURN,  Apple  MLX 
recalculates  the  checksum  from  the 
eight  bytes  and  the  address.  If  you  enter 
more  or  less  than  nine  numbers,  or  the 
checksum  doesn't  exactly  match,  Apple 
MLX  erases  the  line  you  just  entered 
and  prompts  you  again  for  the  same 
line. 

Invalid  Characters  Banned 

Apple  MLX  is  fairly  flexible  about  how 
you  type  in  the  numbers.  You  can  put 
extra  spaces  between  numbers  or  leave 
the  spaces  out  entirely,  compressing  a 
line  into  18  keypresses.  Be  careful  not  to 
put  a  space  between  two  digits  in  the 
middle  of  a  number.  Apple  MLX  will 
read  two  single-digit  numbers  instead 
of  one  two-digit  number  (F  6  means  F 
and  6,  not  F6). 

You  can't  enter  an  invalid  charac- 
ter with  Apple  MLX.  Only  the  numerals 
0-9  and  the  letters  A-F  can  be  typed  in. 
If  you  press  any  other  key  (with  some 
exceptions  noted  below),  nothing  hap- 
pens. This  safeguards  against  entering 
extraneous  characters.  Even  better,  Ap- 
ple MLX  checks  for  transposed  charac- 
ters. If  you're  supposed  to  type  in  AO 
and  instead  enter  OA,  Apple  MLX  will 
catch  your  mistake. 

Apple  MLX  also  checks  to  make 
sure  you're  typing  in  the  right  line.  The 
address  (the  number  to  the  left  of  the 
colon)  is  part  of  the  checksum  recalcu- 
lation. If  you  accidentally  skip  a  line 
and  try  to  enter  incorrect  values,  Apple 
MLX  won't  let  you  continue.  Just  make 
sure  you  enter  the  correct  starting  ad- 
dress; if  you  don't,  you  won't  be  able  to 
enter  any  of  the  following  lines.  Apple 
MLX  will  stop  you. 

Editing  Features 

Apple  MLX  also  includes  some  editing 
features.  The  left-  and  right-arrow  keys 
allow  you  to  back  up  and  go  forward  on 
the  line  that  you  are  entering,  so  you 
can  retype  data.  Pressing  the  CON- 


TROL (CTRL)  and  D  keys  at  the  same 
time  {delete)  removes  the  character  un- 
der the  cursor,  shortening  the  line  by 
one  character.  Pressing  CTRL-I  {insert) 
puts  a  space  under  the  cursor  and  shifts 
the  rest  of  the  line  to  the  right,  making 
the  line  one  character  longer.  If  the 
cursor  is  at  the  right  end  of  the  line, 
neither  CTRL-D  nor  CTRL-!  has  any 
effect. 

When  you've  entered  the  entire 
listing  (up  to  the  ending  address  that 
you  specified  earlier),  Apple  MLX  auto- 
matically leaves  Enter  mode  and  redis- 
plays the  functions  menu.  If  you  want 
to  leave  Enter  mode  before  then,  press 
the  RETURN  key  when  Apple  MLX 
prompts  you  with  a  new  line  address. 
(For  instance,  you  may  want  to  leave 
Enter  mode  to  enter  a  program  listing  in 
more  than  one  sitting;  see  below.) 

Display  Data 

The  second  menu  choice,  (D)ISPLAY 
DATA,  examines  memory  and  shows 
the  contents  in  the  same  format  as  the 
program  listing.  You  can  use  it  to  check 
your  work  or  to  see  how  far  you've 
gotten.  When  you  press  D,  Apple  MLX 
asks  you  for  a  starting  address.  Type  in 
the  address  of  the  first  line  you  want  to 
see  and  hit  RETURN.  Apple  MLX  dis- 
plays program  lines  until  you  press  any 
key  or  until  it  reaches  the  end  of  the 
program. 

Save  And  Load 

Tvvo  more  menu  selections  let  you  save 
programs  on  disk  and  load  them  back 
into  the  computer.  These  are  (S)AVE 
FILE  and  (L)OAD  FILE,  When  you 
press  S  or  L,  Apple  MLX  asks  you  for 
the  filename.  The  first  time  you  save  an 
ML  program,  the  name  you  assign  will 
be  the  program's  filename  on  the  disk. 
If  you  press  L  and  specify  a  filename 
that  doesn't  exist  on  the  disk,  you'll  see 
a  disk  error  message. 

If  you're  not  sure  why  a  disk  error 
has  occurred,  check  the  drive.  Make 
sure  there's  a  formatted  disk  in  the 
drive  and  that  it  was  formatted  by  the 
same  operating  system  you're  using  for 
Apple  MLX  (ProDOS  or  DOS  3.3).  If 
you're  trying  to  save  a  file  and  see  an 
error  message,  the  disk  might  be  full. 
Either  save  the  file  on  another  disk  or 
quit  Apple  MLX  (by  pressing  the  Q 
key),  delete  an  old  file  or  two,  then  run 
Apple  MLX  again.  Your  typing  should 
still  be  safe  in  memory. 
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Apple  MLX:  Machine 
Language  Entry  Program 

For  insiructions  on  entering  this  program, 

pleose  refer  to  "COMPUTEI's  Guide  to  Typing 

In  Progtams"  elsewhere  in  this  Issue. 

5i  100  N  "  9:  HOME  :  NORMAL  I  PR 
INT  CHR«  (17) ("APPLE  HLX 
Vl.l"c  POKE  34, 2l  ONERR  6 
□TO  610 

CC  110  VTftB  1:  HTAB  20:  PRINT  "S 
TART  ADDRESS";;  BOSUB  S30 
I  IF  A  -  0  THEN  PRINT  CHR 

•  (7)!  QOTO  110 
eC  120  S  o  A 

E3  130  VTAB  2:  HTAB  20:  PRINT  "E 
ND  ADDRESS  "jx  6DSUB  S30 
:  lFS>-AaRA-0  THE 
N  PRINT  CHR*  (7) :  GOTO  13 
0 

21    140   E  =   A 

BS  130  PRINT  :  PRINT  "CHOOSE:  (E) 
NTER  DATA";:  HTAB  22s  PR I 
NT  "(DUSPLAY  DATA":  HTAB 
8:  PRINT  "(L)OAD  FILE  ( 
S)AVE  FILE  <G!)UIT":  PRIN 
T 

K  160  SET  A»:  FOR  I  =  1  TO  3:  1 
F  A»  <  >  MID*  ("EDL3D",I, 
1)  THEN  NEXT  :  QOTO  160 

n  170  ON  I  6OT0  270,220,180,200 
I  POKE  34,01  END 

*F  1B0  INPUT  "FILENAMES  ";A«:  IF 
A*  <  >  ""  THEN  PRINT  CMR 

•  (4);"BL0AD"jA«;",A-}S 
M    i.90    GOTO  150 

6D  200  INPUT  "FILENAME:  ";A»:  IF 
A«  <  >  ""  THEN  PRINT  CHR 

•  t4)|"BSAVE";A»i",A";S;" 
L""E  *  S 

n   210  QOTO  150 

C2  220  QOSUB  590:  IF  B  =  0  THEN 

150 
K   230  FOR  B  -  B  TO  E  STEP  OsL  = 
4:A  »  B:  OOSUB  360:  PRIN 

T  A*;":  ";:L  -  2 
fi  240  FOR  F  =  0  TO  7:V(F  +  1)  = 
PEEK  (B  +  F>:  NEXT  :  SOS 

UB  5i0iV(9>  -  C 
F2  230  FOR  F  =  1  TO  N:A  =  V<F): 

BOSUB  5B0:  PRINT  A«"  "j: 

NEXT  ;  PRINT  t    IF  PEEK  (4 

9152)  <  128  THEN  NEXT 
94  2&0  POKE  4916B,0:  SOTO  150 
CC  270  BOSUB  390:  IF  B  =  0  THEN 

150 
4fl  2B0  FOR  B  =  B  TO  E  STEP  B 
Si  290  HTAB  1;A  "  B:L  =  4:  BOSUB 
580:  PRINT  A»!":  ";s  CAL 

L  646&BiA«  -  ""iP  -  0:  BO 

SUB  3301  IF  L  -  0  THEN  IS 

0 
F?  300  BOSUB  4701  IF  F  <  >  N  THE 

N  PRINT  CHR*  (7) ; t    SOTO  2 

90 
27  310  IF  N  =  9  THEN  BOSUB  560: 

IF  C  <  >  V(9)  THEN  PRINT 

CHR*  (7);«  SOTO  290 
72  3^  FOR  F  =  1  TO  8:  POKE  B  + 

F  -  1,V(F>:  NEXT  :  PRINT 

:  NEXT  :  OOTO  130 
BE  330  IF  LEN  (A»>  =  33  THEN  A* 

-  0*1 P  -  01  PRINT  CHR*  (7 

)| 

n   340  L  "  UEN    (A«>i0«  =■  A*:0  => 

PiL*  -  ""I  IF  P  >  0  TVEN 

L«  -  LEFT*  (A*,P) 
El  330  R«  =  "":  IF  P  <  L  -  1  THE 

N  R»  -  RIBHT*  (A*,L  -  P  - 
1) 
55  360  HTAB  7:  PRINT  L»;  I  FLASH 

I  IF  P  <  L  THEN  PRINT  MID 

•  tA*,P  +  l,l)i«  NORMAL  : 
PRIMT  R»! 


7B  370  PRINT  "  "ji  NORMAL 

U   380  K  =  PEEK  <49132) :  IF  K  < 

128  THEN  380 
CI  390  POKE  49168, 0:K  =  K  -  12B 
!B  400  IF  K  =-  13  THEN  HTAB  7:  PR 

INT  A*;"  ";:  RETURN 
(17  410  IF  K  ■=  32  OR  K  >  47  AND  K 
<  Se  OR  K  >  64  AND  K  <  7 

1  THEN  A*  -  L»  +  CHR*  (K) 
+  R*:P  -  P  +  Is  SOTO  330 

I  =  FRE  (0>:  IF  K  =  4  THE 


C7  420 
9F  430 

lA  440 

n  450 

fD  460 
37  470 

BS  480 
SF  490 

IB  500 

17  510 
3i  520 

AB  530 

if  540 


20  550 
28  560 

2»  570 

(A  580 


IF  590 

IB  600 
Bi  610 


N  A*  o  L«  +  R* 

IF  K  =  9  THEN  A*  =  L»  +  " 

"  +  MID*  (A*,P  +  1,1)  + 
R* 

IF  K  =  B  THEN  P  =  P  -  (P 
>  0) 
IF  K  =  21  THEN  P  =  P  +  (P 

<  L) 
60TD  330 
F  =  i:D  =  0:  FOR  P  =  1  TO 

LEN  (A«)sC*  =  MID*  (A*,P 
,1):  IF  F  >  N  AND  C«  <  > 
"  "  THEN  RETURN 
IF  C«  <  >  "  "  THEN  GOSUB 
520!V<F>  =  J  +  16  «  (D  = 
1>  »  V(F) :D  =  D  +  I 
IF  D  >  0  AND  C»  =  "  "  OR 
D  =  2  THEN  D  =  0»F  =  F  + 
1 

NEXT  !  IF  D  =  0  THEN  F  = 
F  -  1 
RETURN 
J  =  ASC  <C»):J  =  J  -  48  - 

7  *  (J  >  64):  RETURN 
A  =  0:  INPUT  A*: A*  =  LEFT 
«  (A«,4)i  IF  LEN  (A*)  =  0 

THEN  RETURN 
FOR  P  =  1  TO  LEN  tA»>:C» 
=  MID*  (A*,P, 1):  IF  C*  < 
"0"  OR  C*  >  "9"  AND  C*  < 
"A"  OR  C»  >  "Z"  THEN  A  = 
0:  RETURN 
BOSUB  520: A  =  A  »  16  +  J: 

NEXT  :  RETURN 
C  =  INT  (B  /  256) :C  =  B  - 

254  *  C  -  255  *  (C  >  127 
):C  =  C  -  255  «  (C  >  255) 
FOR  F=  1  T0  8sC=C«2 
-  255  »  (C  >  127)  +  V(F)S 
C  »=  C  -  255  «  (C  >  255) : 
NEXT  I  RETURN 
I  =  FRE  (0):A«  =  "":  FOR 
I  =  1  TO  LsT  =  INT  (A  /  1 
6) I  A*  «  nlD*  ("01234567B9 
ABCDEF",A  -  16  »  T  +  1,1) 

+  A«:A  =  T!  NEXT  :  RETUR 
N 

PRINT  "FRDH  ADDRESS  "; :  G 
OSUB  330:  IF  S  >  A  OR  E  < 

A  OR  A  =  0  THEN  B  =«  0S  R 
ETURN 

B  =  S  +  8  «  INT  (  (A  -  S) 
/  B) s  RETURN 

PRINT    "DISK    ERROR":    GOTO 
150  © 


CLOSEOUT  OF  LUCASFILM 
GAMES"  BY  EPYX" 


COMPUTE! 

TOLL  FREE 

Subscription 

Order  Line 

1-800-247-5470 

In  lA  1-800-532-1272 


4  COMPUTER  GAMES 

Take  advantage  of  this  closeout  from  Epyx® 
on  4  Computer  Games!  Set  yields  adven- 
ture, strategy,  fantasy,  and  action.  Each 
game  has  realistic  3-dimensional  graphics. 
Plus,  a!l  four  are  compatible  with  Com- 
modore® 64, 128  and  Atari®.  Get  in  on  the 
fun,  order  this  factory  new  set  NOW! 

•  The  Eidolon":  Control  the  a  mazi  ng  1 9th 
century  machine. 

•  KoronisRift'":Takepartlnadaring  raid 
to  claim  exotic  ancient  technologies. 

•  Rescue  on  Fractalus":  Enter  a  hostile 
planet  to  rescue  stranded  pilots. 

•  Ballblazer":  Play  a  fast  31st  century 
sport  For  two  players. 

90-Day  Limited  Factory  Warranty. 

ust  ^159.80 


Liquidation  Price 

For  Four 

Rem  H-3333-7166-49g  S/H:  $5.50/set 


$19 


Credit  card  cuitomera  can  order  by 
phone,  24  hour*  a  day,  7  daya  a  week, 

Toil-Free:  1-800-328-0609 


SEND  TO: 

BEOS  Authorized  Liquidator 
1405  Xenlum  Lane  N/Mlnneapolls,  MN  55441-4494 

Send Computer  Game  S6t(s)  Hem  H-3333-7166-499 

at  S19  per  set,  plus  $5.50  per  sel  for  insured  shipping, 
handling.  (Minnesola  residents  add  6%  sales  tax  Sony. 
no  C.O.D.  orders.) 

D  My  checl<  or  money  order  is  enclosed.  (No  delays  in 
processing  orders  paid  t)y  check.) 


PLEASE    „  ^mm  „ 
CHECK:     U      Mr   I  □ 


PLEASE  PHINT  CLEARLY 


Apt*- 


City- 


ZIP_ 


Ptione — L 
Sign  Here 


Classified 


SOFTWARE 


IBM  Compatible 

Users  Group — over  25,00  members  worldwide 

•  Free  Software 
"  Tech  Help 

•  Newsletters 
■  Much  More 

)oin  Us! 
To  became  a  member  and  receive  your  member- 
ship pack  send  $10.00  for  one  year  membership 
to  the  International  PC  Group,  National  Head- 
quarters, 2269  S.  University  Dr.  #11 8- AC  Ft. 
Lauderdale,  FL  33324,  For  more  info.,  call— 24 
Hrs.  1(305)797-6054. 

FREE  IBM  SOFTWARE 

Most  popular  Public  Domain  and  Shareware  pro- 
grams. Fully  documented.  Only  $2.75 /disk  dis- 
tribution fee.  Free  catalog.  ACL.  1621  Fulton, 
Suite  #35-C,  Saaamento,  CA  95825. 

FREE  *$100  LOTTO  PROGRAM*  FREE. 

Fantastic  Number  Forecasters!  Send  Large  SASE 
for  info.  Z-Way  Pub.  POB  9017-C,  Canton,  OH 
447U  (216)  875-2512. 

TIRED  OF  K!D  GAMES?  "MAKE  A  MILLION". 
Slock  Market  Simu  Spec  D/C  VIC,  64/128  KWK 
Prod.,  106  Mill  St.,  Salineville,  OH  43945. 
$12.95  ppd.  Allow  4-6  wks  delivery. 

COMMODORE:  TRY  BEFORE  YOU  BUY.  Best 
selling  games,  utilities,  educationai,  -I-  classics 
and  new  releases.  lOO's  of  titles.  Visa/MC.  Free 
brochure,  RENT-A-DI5C,  Frederick  Bldg.  #345, 
Hunt'n,  WV  25701  (304)  529-3232 

DISCOUNT  SOFTWARE  for  most  computers. 
FREE  CATALOG.  Sale:  5,25"  DSDD  Disks 
25  for  $13,95  ppd,  WMJ  DATA  SVSTEM5-C, 
4  Butterfly  Dr.,  Hauppauge,  NY  11788 

FREE  SOFTWARE  for  C64,  C128,  IBM  &  CPM 
send  SASE  for  info  (specify  computer)  to: 
PUBLIC  DOMAIN  USERS  GROUP 
PO  Box  1442-Al,  Orange  Park,  FL  32067 

More  than  200  great  ML  routines  for  64  and 
128,  ready  to  add  to  your  own  programs,  in 
COMPUTE!  Books'  MACHINE  LANGUAGE 
ROUTINES  FOR  THE  COMMODORE  64/128. 
Explanations,  uses,  commented  source  code.  585 
pages,  $18.95.  Check  vour  local  bookstore  or  call 
(800)  346-6767 

IBM  PUBLIC  DOMAIN  SOFTWARE  $3  PER  DISK 

Send  stamp  for  catalog  (on  disk).  Hundreds 
of  disks  to  choose  from.  Excellent  service. 
Two  disk  sizes  now  available:  5W'  @  $3.00 
and  3V2"  @  $5.00,  Send  for  your  list. 
Now  accepting  MasterCard  and  Visa, 
JDX/C,  P.O.  BOX  1561,  CORONA,  CA  91718 


IBM  COMRftTIBLE 
USER'S  GROUP 

• 

OVER  25,000  MEMBERS  WORLDWroE 

•  FREE  SOmVARE 

•  TECHNICAL  HELP 

•  NEWSLETTERS 

•  MUCH  MORE 

JOIN  US! 

To  b^omo  a  member  and  receive  your  membership 

package,  send  $10  (for  a  one  year  memberstiip)  to: 

THE  INTERNATIONAL  PC  COMPUTER  GROUP 

t<JalionaI  Headquarter? 

2269  S.  University  Dr.  »118C 

Ft.  Lauderdale,  FL  3332'1 

For  more  info  call  (30S)  797-6054  (24  hrs) 


FREE  PUBLIC  DOMAIN  SOFTWARE 

Request  free  catalog  or  send  $2  for  sample  disk 
it  catalog  (refundable).  Apple,  C64/128  (specify) 
CALOKE  IND.,  Box  18477,  KC,  MO  64133 

C64/128  HNEST  PUBUC  DOMAIN  PROGRAMS 
Pretested  quality  programs  *Most  $1.50*  "On 
Disk*  YOU  pick  the  programs  that  YOU  want!!! 
Free  diskfull  of  programs  with  fust  order! 
For  a  list  and  description,  send  a  SASE  to: 
JLH  Co.,  Dept,  H,  Box  67021,  Topeka,  KS  66667 

•FREE*  IBM  SOFTWARE  'FREE* 
5W-  AND  3y»-  FORMATS 
FREE  CATALOG:  AP-JP,  INC., 
BOX  115S,  W.  BABYLON,  NY  11704 

Cheap  Software  /  IBM.  PCjr,  Compatibles, 
5,25  or  3.5  disk.  For  catalog  of  diskettes 
available  for  education,  games,  business,  etc. 
Write:  Morning  Star  Industry,  Box  3095, 
Ann  Arbor,  MI  48106 

T1-99/4A  Software/Hardware  bargains. 
Hard-to-find  items.  Huge  selection. 
Fast  service.  Free  catalog. 
D.E.C.,  Box  690,  Hicksville,  NY  11801 


MISCELLANEOUS 


MAKE  FAST  EASY  MONEY  STUFFING  ENVE- 
LOPES. How  many  can  you  fill  for  $1  each? 
Earn  even  more  with  home  computer!  Send 
SASE  to  PAC  Data,  POB  9721  Richmond,  VA 
23228. 

PERSONAL  COMPUTER  OWNERS  CAN  EARN 

$1000  to  $5000  monthly  selling  simple  services 

part  time.  Free  list  of  100  best  services. 

A.l.M.P.M, 

PO  Box  60369,  San  Diego,  CA  92106 


COMPUTEl  Classified  is  a  low-cost  way  to  tell  over  300,000  microcomputer 
owners  about  your  product  or  service. 

Bates;  525  per  line,  minimum  ot  four  lines.  Any  or  all  of  the  first  line  ser  in  capital  letters  at  no  ciiarge.  Add 

S15  per  line  for  boldface  words,  or  $50  for  the  entire  ad  set  in  l>oldface  (any  numljer  of  lines.)  Inquire  about 

displav  rates. 
Terms:  Prepayment  is  required.  Check,  mone\'  order,  American  Express,  Visa,  or  MasterCard  is  accepted. 

Make  chcciU  payable  to  COMPUTE!  Publicatii>ns. 
Form:  Ads  are  subject  to  publisher's  approval  and  must  be  either  typed  or  legibly  printed.  One  line  equals  40 

letters  and  spaces  between  words.  Please  underline  words  to  be  set  in  boldface. 
Genera]  Information:  Advertisers  using  post  office  box  numbers  in  their  ads  must  supply  permanent  address 

and  telephone  numbers.  Ad  will  appear  in  next  available  issue  after  receipt. 
Closing:  iOth  of  the  third  month  preceding  cover  date  (ejj..  June  issue  closes  March  lOth),  Send  order  and 

remittance  to:  Kathleen  Ingram.  Classified  Manager.  CcSmPUTE!.  P.O.  Box  5406,  Greensboro,  NC  27403.  To 

place  an  ad  bv'phane,  call  Kathleen  Ingram  at  (919)  275-9809. 
Notipe:  COMPUTE!  Put>Ucations  cannot  be  responsible  for  offers  or  claims  of  advertisers,  but  will  attempt  to 

screen  out  misleading  or  questionable  copy. 


MAKE  MONEY  WITH  YOUH  PCI 

Full  or  Part-Time!  Send  SASE  to: 
Harbor  Investments,  Post  Office  Box  69, 
Essexviile,  Michigan  4B732 

NO  HOURLY  CHARGES! 
Chat  with  11  other  callers  on  our 
MODEM  PARTY  LINE! 
(300/1200  BAUD)  1-818-842-3322 

SX-64  Owners!  join  the  Nationwide  UG.  Month- 
ly newsletter  and  more!  Send  $15  yearly 
membership  to  :USA  SX-64  UG 
10  Cornwall  St.,  Boston,  MA  U2130. 


HARDWARE 


.      SPEECH  THING 

For  all  PCs,  eompatiblBS,  laptops 


CLEAR,  CLEAN, 
DtOmZED  SPEECH  4 
MUSIC,  UNLIMITED 
TEXT-TOSPEECH 
Attichu  outild* 
Ih*  computer. 
Now  get  popuJor  ipeech  technologiei  In  ONE  pro- 
ductt  Speech  rhino  Is  a  lull-(eatured  e  bit  D/A  sotrid 
convenm.  Eojily  otiochsi  outside  ttie  computer-jw 
jloli  recjuited.  Software  Inciudej  prerecoiOecl  ipeech 
(^seokj  ony  ASCII  tail),  demo  ptooroms,  and  conv 
plen   ediling   (ealures.   Price   only   549.95.   AJio 
ovoiiotjte:  Voice  Mcuis'  ?C  plug  In  tjoord  (or  diatol 
recffldlno.   edillno.   ond  VOCE   (SCOGNIIION.   (Be- 
(Wes  Speech  Ihina  !of  wind  output.)  Only  579.95. 
Patented  prico/pedomvonce  bteokttvoushil 
10  OfiOtfi  BY  MA>1  Include  S4  tfiipplno  *  honaltio  (S4 
Conodo,  SI  2  overjecs)  pei  otdet  Vljo.  MoileiCCTd 
pfone  orders  occeptsd.  30  day  nwoey  back  guc»- 
Onlse,  one  yeor  woironty.  Other  voice  I/O  syitemj 
ovolotile  (or  Apple,  Commoctore,  ond  Atari  com- 
puteri. 

Coll  O)  write  (odov  (or  FREE  Product  Cotolog 

COWX  INC    (503)342-1271 

675  Conoer  SI.,  Euflene,  Oregon  97402 


®, 


Advertisers  Index 


Beoder  tervic*  Number/AdverHHr  Page 

)01  Access  Software IS 

103  Air  Force   . 1 

104  A/alon  Hill  Gome  Company    19 

CO.M.B.  Autnorirsd  Liquiaator   99 

10s  ComputAtjility     39 

10«  Computer  Direct    28-29 

107  Computer  Mall  Order 22-23 
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COMPUTEl's 

FREE  Reader  Information  Service 

Use  these  cards  to  request  FREE  Information  about  the  products  ad- 
vertised in  this  issue,  Clearly  print  or  type  your  full  name  and  address, 
Only  on©  card  should  be  used  per  person.  Circle  the  numbers  that 
correspond  to  the  key  number  appearing  in  the  advertisers  index, 

Send  in  the  card  and  the  advertisers  will  receive  your  inquiry,  Al- 
though every  effort  is  mode  to  insure  that  only  advertisers  wishing  to 
provide  product  information  have  reader  service  numbers,  computei 
cannot  be  responsible  if  advertisers  do  not  provide  literature  to 
readers, 

Please  use  these  cards  only  for  subscribing  or  for  requesting  product 
information.  Editorial  and  customer  service  inquiries  should  be  ad- 
dressed to:  COMPUTEI,  P.O.  Box  5406,  Greensboro,  NO  27403,  Check 
the  expiration  date  on  the  card  to  insure  proper  handling. 

Use  these  cards  and  this  address  only  for  COMPUTEl's  Reader  Infor- 
mation Service.  Do  not  send  with  payment  In  any  form. 
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3  one 

/ear  new  U.S 
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to  COMPUTE!:  /o 

J  will  be  billed  for  $24. 

I 


Pleas©  let  us  know.  Do  you 


own: 

a 

270 

:■  □ 

D 
O 
D 

27« 

a 

290 


plan  to  buy; 


Apple . 
Atari- 


Commodore 

IBM 


■n-w/4A 

other  _ 


_  n 

271 

_    P 
273 

_  D 

27S 

_    D 
277 

_     D 

279 

D 

<specity  modeO   281 


SUBSCRIBE 

TO 

COMPUTE! 


Please  print  or  type  name  and  address, 
Umit  one  cord  per  person. 

Nome 


Address 


City 


State/Province 


Zip 


Country 


Phone 


Please  Include  ZIP  Code 


Expiration  Date  4/30/86         GA03ea 


For  Fastest  Service, 
Call  Our  Toll-Frae 
US  Order  Line 
800-727-6937 


D  $24,00  One  Year  US  Subscription 
D  $45,00  Two  Year  US  Subscription 


Nome 

Address 

City 

State 

Zip 

□  Payment  Enclosed 
Charge  my:  D  VISA 
Account  No. 

D  Bill  me 
n  MasterCard    D  American  Express 
Expires             / 

Your  subscription  will  besln  wl'1  ll^o  "SkI  available  issue.  Please  allow  4-6  weeks  for  delivery  o(  first  Issue,  Subscription 
price  sublsct  to  change  at  any  lime.  Outside  Itie  U.S.A.  please  add  S6  for  eacli  subscription  Basle  Rale  S24.        innnn-t 

J3GS31 


Place 

Stamp 
Here 


COMPUTE!  Reader  Service 

P.O.  Box  2141 
Radnor.  PA  1 9089 
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NO  POSTAGE 
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IF  MAILED 
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POSTAQEWILL  BE  PAID  BY  ADDRESSEE 


COMPUTE! 

P.O.  Box  10955 

Des  Moines,  I A  50347-0955 
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KONAMI  HITS  ARE  HEADING  HOME. 

With  our  new  software,  your  favorite  arcade  games  come  alive 

=n  on  your  home  computer,    r 

I  tr<  If  you  own  an  IBM,  Amiga  or  Commodore 

computer— Watch  outi  Because  4  of  Konami's 
most  awesome  adventures  are  about  to  invade. 

You'll  confront  the  missions  you've  dreamed 
ofin  Rush 'NAttack,  Contra,  Jackal  and  Boot      ...  .. 
I   Camp.  And  you'll  find  yourself  face  to  face  L^ 

against  unequafed  challenges,  with  incredible 

graphics,  awesome  music,  and  sound  effects        

that'll  blow  you  away 

So  check  out  Konami's  newest  action 
wherever  great  software  is  sold.  And  be 
prepared  for  war. 
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Turn  Your  Computer  Into  a  Starship. 


Beam  Aboard,  Captain. 

Your  starship  is 
fueled  and  ready.  Your 
crew  is  fully  trained.  You 
launch  from  Starport, 
heading  toward  the  gal- 
axy's core  on  a  hunch. 
You've  been  chosen  to 
seek  new  worlds  to  col- 
onize. New  resources 
for  a  homeworld  gone 
stale. 

Your  navigator  zeroes 
in  on  a  red  dwarf  star. 
Long-range  scans  show 
three  planets:  a  gas 
giant,  a  frozen  ice 
world,  and  a  blue- 
oceaned  paradise  that 
looks  just  like  heaven. 
A  good  place  to  land. 

Suddenly  a  klaxon  sounds. 
"Captain,  we're  being  scanned," 
says  your  Science  Officer.  A  giant 
hologram  of  a  squid-like  crea- 


STARFLIGHT 


Explore  Strange  New  Worlds 
Land  on  different  planets  to  collect  valu- 
able minerals,  lifeform  specimens,  and 
artifacts  from  ancient  civilizations.  But 
keep  your  laser  on  stun— not  all  the  locals 
will  be  glad  to  see  you. 


ture  appears  on  your  view  screen 
and  hisses,  "Prepare  to  die,  air- 
breathers," 

Your  space  odyssey  has  just 
begun. 


Talk  to  Aliens 
Each  alien  race,  like  this  Veloxi,  has  a  unique 
culture,  personality,  and  language.  They 
can  give  you  clues  — if  you  can  get  them  to 
trust  you. 


State-of-the-art  Outer 
Space  Simulation. 

•  Stunning  graphic  sim- 
ulation of  rotating  plan- 
ets, landing  sequences, 
laser  battles,  and  more. 

•  Explore  270  star  sys- 
tems and  800  planets 
with  unique  ecosystems. 
Each  planet  contains 
almost  2  million  differ- 
ent locations. 

•  Choose  your  own 
crew— Science  Officer, 
Communications  Offi- 
cer, Navigator,  Chief 
Engineer,  Medical  Offi- 
cer, and  Captain. 

•Includes  full  starmap 
and  security  decoder. 

•  The  state-of-the-art  in  enter- 
tainment software.  Over  15 
man-years  in  development. 


"Standard  Orbit,  Captain." 
From  hull-crushing  gas  giants  to  frozen 
dwarves,  each  star  system  is  unique,  Study 
your  sensors  carefully- there's  a  stiff  fine 
for  recommending  colonization  of  boiling 
lava  planets. 
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